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I 



INTRODUCTION 



The purpose of this book is to provide a detailed listing 
of the ROM contents for the Commodore 64 microcomputer. 
For programmers working in assembler language, or those 
wanting a more complete understanding of BASIC, this 
should prove to be very useful. 

Since there are two ROM areas, AOOO-BFFF and EOOO-FFFF, 
which can be disable'd separately, the listing is in two 
distinct parts, each with its own cross-reference listing. 

The columns in the listing, from left to right, are: 

1 . address 

2. object code 

3. line number 

4 . label 

5. instruction mnemonic 

6 . operand 

7 . comments 

All labels have a four (two for zero page) hexadecimal 

character suffix representing the actual address': 

The single character prefixes have the following meanings: 

B - Branch label 

J - Jump label 

S - Subroutine label 

T - Table (data) label 

W - Word label 

Z - Zero page label 

X - External label (address outside of zero page 
and current ROM area) 

The mnemonics are standard MOS Technology. Operands may be 
symbolic, immediate hexadecimal (preceded by a dollars sign) 
or low/high order immediate (preceded by </>) . 

At the end of each of the two listings you will find a 
cross-reference. For each label, listed in alphabetical 
order, you will find the label value and each line 
number where the label was used. 



II 





1 




.L 






2 




.H 






3 ; 

4 • 


CBM-64-Part One 


0000 


5 

5 ; 


,00 




$00 


0001 


7 ZOl 




$01 




8 




bit (output) 




9 




bit 


1 (output) 




10 




bit 


2 (output) 




11 




bit 


3 (output) 




12 




bit 4 (input) 




13 




bit 


5 (output) 




14 




bit 


6 unused 




15 




bit 


7 unused 


0002 


16 


Z02 


= 


$02 


0003 


17 


Z03 


= 


$03 


0004 


18 


Z04 




$04 


0007 


19 


Z07 


= 


$07 


0008 


20 


Z08 




$08 


0009 


21 


Z09 


= 


$09 


OOOB 


22 


ZOB 




$0B 


OOOC 


23 


ZOC 




$0C 


OOOD 


24 


ZOD 




$0D 


OOOE 


25 


ZOE 




$0E 


OOOF 


26 


ZOF 




$0F 


0010 


27 


ZIO 




$10 


0011 


28 


Zll 




$11 


0012 


29 


Z12 




$12 


0013 


30 


Z13 




$13 


0014 


31 


Z14 




$14 


0015 


32 


Z15 




$15 


0016 


33 


Z16 




$16 


0017 


34 


Z17 




$17 


0018 


35 


Z18 




$18 


0019 


36 


Z19 




$19 


0022 


37 


Z22 




$22 


0023 


38 


Z23 




$23 


0024 


39 


Z24 




$24 


0025 


40 


Z25 




$25 


0026 


41 


Z26 




$26 


0027 


42 


Z27 




$27 


0028 


43 


Z28 




$28 


0029 


44 


Z29 




$29 


002B 


45 


Z2B 




$2B 


002C 


46 


Z2C 




$2C 


002D 


47 


Z2D 




$2D 


002E 


48 


Z2E 




$2E 


002F 


49 


Z2F 




$2F 


0030 


50 


Z30 




$30 


0031 


51 


Z31 




$31 


0032 


52 


Z32 




$32 


0033 


53 


Z33 




$33 


0034 


54 


Z34 




$34 


0035 


55 


Z35 




$35 


0036 


56 


Z36 




$36 


0037 


57 


Z37 




$37 


0038 


58 


Z38 




$38 


0039 


59 


Z39 




$39 



;6510 data direction register 
;6510 I/O register 
0-RAM at $A0OO-$BFFF (BASIC area) 
0=RAM at $E0OO-$EFFF (Kernal area) 
0=access CRT shapes at $DOOO-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



dummy address for offset 
fixed-float vector 
high byte of same 
separator/terminator/work field 
terminator/ AMD work field 
; character position for TAB 
; length BASIC line/AND-OR switch/* DIM 
ireference/declaraction flag 
;type: FF=string, 00=numeric 
;type: 80=integer, O0=floating point 
iDATA/string/error flag 
;subscript/fn flag/integers-arrays flag 
j0=input, $40=get, $98-read 
;<=> operator 
;CMD file number 
; integer value (work) 
;hlgh byte of same 
; string descriptor stack index 
;previous string descriptor stack index 
;high byte of same 
;bottom of string descriptor stack 
;utility pointer area 



product for multiplication 



pointer to start of BASIC 

high byte of same 

pointer start of variables 

high byte of same 

; pointer to start of arrays 

;high byte of same 

; pointer to end of arrays 

;high byte of same 

;pointer to start of string storage 

;high byte of same 

jutility string pointer 

;high byte of same 

; pointer to limit of memory 

;high byte of same 

; current BASIC line number 



1 



003A 


60 Z3A 


= 


$3A 


003 B 


61 Z3B 


= 


$3B 


003C 


62 Z3C 


= 


$3C 


003D 


63 Z3D 


= 


$3D 


003E 


64 Z3E 




$3E 


003F 


65 Z3F 


= 


$3F 


0040 


66 Z40 


= 


$40 


0041 


67 Z41 




$41 


0042 


68 Z42 




$42 


0043 


69 Z43 




$43 


0044 


70 Z44 




$44 


0045 


71 Z45 




$45 


0046 


72 Z46 


= 


$46 


0047 


-73 ZA^ 




$47 


0048 


74 Z48 




$48 


0049 


75 Z49 




$49 


004A 


76 Z4A 


_ 


$4A 


004B 


77 Z4B 




$4B 


004C 


78 Z4C 


= 


$4C 


004D 


79 Z4D 




$4D 


004E 


80 Z4E 




$4E 


004F 


81 Z4F 




$4F 


0050 


82 Z50 




$50 


0051 


83 Z51 




$51 


0053 


84 Z53 




$53 


0055 


85 Z55 


= 


$55 


0056 


86 Z56 


= 


$56 


0057 


87 Z57 


= 


$57 


0058 


88 Z58 


= 


$58 


0059 


89 Z59 


= 


$59 


005A 


90 Z5A 




$5A 


005B 


91 Z5B 


= 


$5B 


005C 


92 Z5C 


- 


$5C 


005D 


93 Z5D 




$5D 


005E 


94 Z5E 




$5E 


005F 


95 Z5F 




$5F 


0060 


96 Z60 




$60 


0061 


97 Z61 




$61 


0062 


98 Z62 




$62 


0063 


99 Z63 




$63 


0064 


100 Z64 




$64 


0065 


101 Z65 




$65 


0066 


102 Z66 




$66 


0067 


103 Z67 




$67 


0068 


104 Z68 




$68 


0069 


105 Z69 




$69 


006A 


106 Z6A 




$6A 


006B 


107 Z6B 




$6B 


006C 


108 Z6C 




$6C 


006D 


109 Z6D 




$6D 


006E 


110 Z6E 




$6E 


006F 


111 Z6F 




$6F 


0070 


112 Z70 




$70 


0071 


113 Z71 




$71 


0072 


114 Z72 




$72 


007A 


115 Z7A 




$7A 


007B 


116 Z7B 




$7B 



high byte of same 
previous BASIC line number 
high byte of same 

pointer to BASIC statement for CONT 

high byte of same 

current DATA line number 

high byte of same 

current DATA address 

high byte of same 

temporary read pointer 

high byte of same 

current variable name 

second byte of same 

current variable address 

high byte of same 

variable pointer for FOR/NEXT 

high byte of same 

save area 

high byte of same 

comparison symbol accumulator 

misc. work area 



misc. numeric work area 



floating point accu # 1 - exponent 
flp # 1 - mantissa 



flp # 1 - sign 
saved sign of flp accu 
flp accu t 1 padding 
flp accu f 2 thru Z6E 



;sign comparison accu #1 vs accu if 

;work pointer/guard bit 

; output index 

;high byte of same 

; current character address 

;high byte of same 
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0054 
0073 
0079 
0080 
0100 
0101 
0102 
0103 
0104 
OlFE 
OlFF 
0200 



0300 

0302 

0304 

0306 

0308 

030A 

0310 

0314 

0316 

0318 

031 A 

031C 

03 IE 

0320 

0322 

0324 

0326 

0328 

032A 

032C 

032E 

0330 

0332 

033C 
033C 
03FC 
0400 
07E8 
0800 



118 X0054 

119 X0073 

120 X0079 

121 X0080 

122 XOlOO 

123 XOlOl 

124 X0102 

125 X0103 

126 X0104 

127 XOIFE 

128 XOIFF 

129 X0200 

130 ; 

131 ;Opera 

132 ; 

133 X0300 

134 X03O2 

135 X0304 
135 XO306 

137 X0308 

138 X030A 

139 X0310 

140 W0314 

141 W0316 

142 W0318 

143 W031A 

144 W031C 

145 W031E 

146 W0320 

147 W0322 

148 W0324 
Ui W032« 

150 W0328 

151 W032A 

152 W032C 

153 W032E 

154 W0330 

155 W0332 

156 ; 
157 
158 
159 
160 
161 
162 



$54 

$73 

$79 

$80 

$0100 

$0101 

$0102 

$0103 

$0104 

$01FE 

$01FF 

$0200 



JMP vector for functions 
get next character 
get current character 
check for numeric character 
bottom of stack 

work area for flp to string conversion 



line number for line In Input buffer 
high byte of same 
BASIC input buffer 



ting System vector table 



$0300 
$0302 
$0304 
$0306 
$0308 
$030A 
$0310 
$0314 
$0316 
$0318 
$031A 
$031C 
$031E 
$0320 
$0322 
$0324 
= $0326 
$0328 
$032A 
$032C 
$032E 
$0330 
$0332 

.OR $33C 

.DS 192 

.DS 4 

.DS 1000 

.DS 24 

.DS $8800 



;error message link, std value = $E38B 

; BASIC warm start vector, std = $A483 

;crunch BASIC tokens, std = $A57C 

; print tokens vector, std value = $A71A 

; execute stmt vector, std value - $A7E4 

;get arithmetic element, std - $AE86 

;USR JMP vector, std value - $B248 

;IRQ vector, std value - $EA31 

;BRK vector, std value = $FE66 

;NMI vector, std value = $FE47 

;0PEN vector, std value = $F34A 

;CL0SE vector, std value = $F291 

;set Input vector, std value = $F20E 

;set output vector, std value = $F250 

jrestore I/O vector, std value = $F333 

;INPUT vector, std value = $F157 

; OUTPUT vector, std value = $F1CA 

;test Stop Key vector, std value = $F6ED 

;GET vector, std value » $F13E 

; close files and channels, std = $F32F 

;unused vector, std value = $FE66 (BRK) 

;Load RAM vector, std value =■ $F4A5 

;Save RAM vector, std value " $F5ED 



; cassette buffer 



; video RAM 

; sprite pointers 

; standard BASIC text area 
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9FEA 


164 


X9FEA = 


$9FEA 


EOOO 


165 


XEOOO - 


$EOO0 


E043 


166 


XE043 = 


$E043 


E097 


167 


HE097 = 


$E097 


ElOC 


168 


XEIOC = 


$E10C 


EH2 


169 


XE112 = 


$E112 


EU8 


170 


XE118 =■ 


$E118 


EllE 


171 


XEllE = 


$E11E 


E124 


172 


XE124 = 


$E124 


E12A 


173 


WE12A = 


$E12A 


E156 


174 


WE156 = 


$E156 


E165 


175 


WE165 = 


$E165 


E168 


176 


WE168 = 


$E168 


ElBE 


177 


WEIBE = 


$E1BE 


E1C7 


178 


WE1C7 = 


$E1C7 


E264 


179 


WE264 = 


$E264 


E26B 


180 


WE26B = 


$E26B 


E2B4 


181 


WE2B4 = 


$E2B4 


E30E 


182 


WE30E = 


$E30E 


E37B 


183 


WE37B = 


$E37B 


E386 


184 


XE386 = 


$E386 


E394 


185 


WE394 = 


$E394 


FF90 


186 


XFF90 = 


$FF90 


FFB7 


187 


XFFB7 = 


$FFB7 


FFCC 


188 


XFFCC = 


$FFCC 


FFDB 


189 


XFFDB = 


$FFDB 


FFDE 


190 


XFFDE = 


$FFDE 


FFEl 


191 


XFFEl - 


$FFE1 


FFE7 


192 


XFFE7 =■ 


$FFE7 


FFFO 


193 


XFFFO - 


$FFF0 



;address to access function jump table 

; continuation of RND routine 

; compute odd degrees for SIN and ATN 

;RND command 

; output a character 

; input a character 

;set output device 

;set input device 

;get a character from current device 

;SYS command 

; SAVE command 

; VERIFY command 

;L0AD command 

;OPEN command 

; CLOSE command 

;C0S command 

;SIN command 

;TAN command 

;ATN command 

;Warm Start entry 

; print message READY 

; RESET routine 

; control kernal messages 

;read I/O status word 

; res tore I/O devices to default 

;set real time clock 

;read real time clock 

; check Stop key 

;Close all channels and files 

;Read/Set XY cursor position 
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AOOO 195 .OR $A000 

AOOO 94E3 196 .W WE394 ;RESET address 

A002 7BE3 197 .W WE37B ;Wara Start address 

198 ; 

199 ; program Identifier (not tested) 

200 ; 

A004 43424D 201 .BY 'C.'B.'M.'B.'A.'S.'I.'C 

202 ; 

203 ; address table for BASIC commands 

204 ; address - 1 used since routines reached via RTS 







205 ; 








AOOC 


30A8 


206 TAOOC 


.W 


WA831-1 ; 


END 


AOOE 


41A7 


207 


.W 


WA742-1 ; 


FOR 


AOlO 


IDAD 


208 


.w 


WADlE-1 ; 


NEXT 


A012 


F7A8 


209 


.w 


WA8F8-1 ; 


DATA 


A014 


A4AB 


210 


.w 


WABA5-1 ; 


INPOT# 


A016 


6EAB 


211 


.w 


WABBF-1 ; 


INPUT 


A018 


80BO 


212 


.w 


WB081-1 


DIM 


AOIA 


05AC 


213 


.w 


WAC06-1 


READ 


AOIC 


A4A9 


214 


.w 


WA9A5-1 


LET 


AOIE 


9FA8 


215 


.w 


WA8A0-1 


GOTO 


A020 


70A8 


216 


.w 


WA871-1 


RUN 


A022 


27A9 


217 


.w 


WA928-1 


IF 


A024 


1CA8 


218 


.w 


WAS ID- 1 


RESTORE 


A026 


82A8 


219 


.w 


WA883-1 


GOSUB 


A028 


D1A8 


220 


.u 


WA8D2-1 


RETURN 


A02A 3AA9 


221 


.w 


WA93B-1 


REM 


A02C 


2EA8 


222 


.w 


WA82F-1 


STOP 


A02E 


4AA9 


223 


.w 


WA94B-1 


ON 


A030 


2CB8 


224 


.w 


WB82D-1 


.WAIT 


A032 


67E1 


225 


.w 


WE168-1 


;LOAD 


A034 


55E1 


226 


.w 


WE156-1 


;SAVE 


A036 


64E1 


227 


.w 


WE165-1 


; VERIFY 


A038 


B2B3 


228 


.w 


WB3B3-1 


;DEF 


A03A 


23B8 


229 


.H 


WB824-1 


;POKE 


A03C 


7FAA 


230 


.w 


WAA80-1 


; PRINT* 


A03E 


9FAA 


231 


.w 


WAAAO-1 


; PRINT 


A040 


56A8 


232 


.w 


WA857-1 


;CONT 


A042 


9BA6 


233 


.w 


WA69C-1 


;LIST 


A044 


5DA6 


234 


.w 


WA65E-1 


;CLR 


A046 


85AA 


235 


.w 


WAA86-1 


;CMD 


A048 


29E1 


236 


.w 


WE12A-1 


;SYS 


A04A BDEl 


237 


.w 


WElBE-1 


;OPEN 


A04C 


C6E1 


238 


.w 


WE1C7-1 


; CLOSE 


A04E 


7AAB 


239 


.w 


WAB7B-1 


;GET 


A050 


41A6 


240 


.w 


WA642-1 


;NEW 
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242 ;address table for BASIC functions 

243 ; 



A052 


39BC 


244 


.W 


WBC39 


;SGN 


A054 


CCBC 


245 


.W 


WBCCC 


;INT 


A055 


58BC 


246 


.w 


WBC58 


;ABS 


A058 


1003 


247 


.w 


X0310 


;USR 


A05A 


7DB3 


248 


.w 


WB37D 


;FRE 


A05C 


9EB3 


249 


.w 


WB39E 


;POS 


A05E 


71BF 


250 


.w 


WBF71 


;SQR 


A060 


97EO 


251 


.w 


WE097 


;RND 


A062 


EAB9 


252 


.w 


WB9EA 


;L0G 


A064 


EDBF 


253 


.w 


WBFED 


;EXP 


A066 


64E2 


254 


.w 


WE264 


;COS 


A068 


6BE2 


255 


.w 


WE26B 


;SIN 


A06A 


B4E2 


256 


.w 


WE2B4 


;TAN 


A06C 


0EE3 


257 


.w 


WE30E 


;ATN 


A06E 


0DB8 


258 


.w 


WB80D 


;PEEK 


A070 


7CB7 


259 


.w 


WB77C 


;LEN 


A072 


65B4 


260 


.w 


WB465 


;STR$ 


A074 


ADB7 


261 


.w 


WB7AD 


;VAL 


A076 


8BB7 


262 


.w 


WB78B 


;ASC 


A078 


ECB6 


263 


.w 


WB6EC 


;CHR$ 


A07A 


00B7 


264 


.w 


WB700 


;LEFT$ 


A07C 


2CB7 


265 


.w 


WB72C 


;RIGHT$ 


A07E 


37B7 


266 


.w 


WB737 


;MID$ 



267 ; 

268 ; table of priorities and addresses 

269 ;for diadlc operators 

270 ; 



A080 


79 


271 


TA080 .BY $79 




A081 


69B8 


272 


.W WB86A-1 


;plus 






273 


t 


A083 


79 


274 


.BY $79 




A084 


52B8 


275 


.W WB853-1 


; minus 






276 


t 




A086 


7B 


277 


.BY $7B 




A087 


2ABA 


278 


.W WBA2B-1 


; times 






279 


t 




A089 


7B 


280 


.BY $7B 




A08A 


IIBB 


281 


.W WBB12-1 


; divided by 






282 




A08C 


7F 


283 


.BY $7F 




A08D 


7ABF 


284 


.W WBF7B-1 


; raise to power 






285 




A08F 


50 


286 


.BY $50 




A090 


E8AF 


287 


.W WAFE9-1 


; logical AND 






288 


> 




A092 


46 


289 


.BY $46 




A093 


E5AF 


290 


.W WAFE6-1 


; logical OR 






291 






A095 


7D 


292 


.BY $7D 




A096 


B3BF 


293 


.W WBFB4-1 


;monadlc minus 






294 






A098 


5A 


295 


.BY $5A 




A099 


D3AE 


296 


.W WAED4-1 


;monadic NOT 






297 






A09B 


64 


298 


.BY $64 




A09C 


15B0 


299 


.W WB016-1 


;> = < 
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A09E 
AOAl 
A0A4 
A0A8 
AOAC 
A0B2 
A0B7 
AOBA 
AOBE 
AOCl 
A0C5 
A0C8 
AOCA 
AODl 
A0D6 
AODC 
AODF 
A0E3 
A0E5 
A0E9 
AOED 
AOFl 
A0F7 
AOFA 
AOFE 
A104 
A109 
AlOD 
AUl 
A114 
A117 
All A 
AllE 
A123 
A126 



454EC4 
464FD2 
4E4558 
444154 
494E50 
494E50 
4449CD 
524541 
4C45D4 
474F54 
5255CE 
49C6 
524553 
474F53 
524554 
5245CD 
53544F 
4FCE 
574149 
4C4F41 
534156 
564552 
4445C6 
504F4B 
505249 
505249 
434F4E 
4C4953 
434CD2 
434DC4 
5359D3 
4F5045 
434C4F 
4745D4 
4E45D7 



301 ; table of keywords 

302 ;same sequence as address table TAOOC 

303 ; 

304 TA09E .BY 'E,'N,'CH-$80 

305 .BY 'F,'0,'R+$80 

306 .BY 'lJ,'E,'X,'T+$80 

307 .BY 'D,-A,-T,'A+$80 

308 -BY 'I.'N,'P,'U,'T,'#+$80 

309 .BY -I,-N,'P,'U,'T+$80 

310 .BY 'D,'I,'M*-$80 

311 .BY 'R,'E,-A,'I>1-$80 

312 .BY 'L,'E,'T+$80 

313 .BY 'G,'0,'T,'O1-$80 

314 .BY 'R,'U,'N+$80 

315 .BY 'X,'F+$80 

316 .BY 'R,'E,'S,'T,'0,'R,'E+$80 

317 .BY 'G,'0,'S,'U,'B+$80 

318 .BY -R,'E,'T,'U,'R,'N+$80 

319 .BY 'R,'E,'M4-S80 

320 .BY 'S,'T,'0,'P+S80 

321 .BY '0,'N+$80 

322 .BY -W,'A,'I,'T+$80 

323 .BY -L,'0,'A,'D+$80 

324 .BY 'S,'A,'V,-E+$80 

325 .BY -V,'E,'R.'I.'F,-Y+$80 

326 .BY 'D,'E,'F+$80 

327 .BY -p,'0,'K,'E+$80 

328 .BY 'P.'R,'I,'N,'T,'#+$80 

329 .BY 'P,'R,'I,'N,'T+S80 

330 .BY 'C,'0,'N,'T+$80 

331 .BY 'L,'I,'S,'T+$80 

332 .BY 'C,'L,'R+$80 

333 .BY 'C,'M,'IH-$80 

334 .BY -S,'Y,'S+$80 

335 .BY '0,'P,'E,'IH-$80 

336 .BY 'C,'L,'0,'S,'E+$80 

337 .BY 'G,'E,'T+$80 

338 .BY 'N,'E,'W-$80 
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A129 
A12D 
A12F 
A131 
A135 
A139 
A13C 
A140 
A141 
A142 
A143 
A144 
A145 
A148 
A14A 
A14B 
A14C 
A14D 
A150 
A153 
A156 
A159 
A15C 
A15F 
A162 
A165 
A158 
A16B 
A16E 
A171 
A174 
A177 
A17B 
A17E 
A182 
A185 
A188 
A18C 
A191 
A197 



544142 

54CF 

46CE 

535043 

544845 

4E4FD4 

535445 

AB 

AD 

AA 

AF 

DE 

414EC4 

4FD2 

BE 

BD 

BC 

5347CE 
494ED4 
4142D3 
5553D2 
4652C5 
504FD3 
535 1D2 
524EC4 
4C4FC7 
4558D0 
434FD3 
5349CE 
5441CE 
4154CE 
504545 
4C45CE 
535452 
5641CC 
4153C3 
434852 
4C4546 
524947 
4D4944 



A19B 47CF 
A19D 00 



340 ; 

341 ; 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 

382 ; 

383 ;o 

384 ; 
385 
386 



table of functions 

.BY 'T,'A,'B,'(+$80 

.BY 'T,'0+$80 

.BY 'F,'IH-$80 

.BY 'S,'P,'C,'(+$80 

.BY 'T,'H,'E,'m-$80 

.BY 'N,'0,'T+$80 

.BY 'S,'T,'E,'P+$80 

.BY '++$80 

.BY '-+$80 

.BY '*+$80 

.BY '/+$80 

.BY $DE ; exponent sign 

.BY 'A,'N,'I>+$80 

.BY '0,'R+$80 

.BY '>+$80 

.BY '=+$80 

.BY '<+$80 

.BY 'S,'G,'N+$80 

.BY 'I,'N,'T+$80 

.BY 'A,'B,'S+$80 

.BY 'U,'S,'R+$80 

.BY 'F,'R,'E+$80 

.BY 'P,'0,'S+$80 

.BY 'S,'Q,'R+$80 

.BY 'R,'N,'IH-$80 

.BY 'L,'0,'G+$80 

.BY 'E,'X,'P+$80 

.BY 'C,'0,'S+$80 

.BY 'S,'I,'^H-$80 

.BY 'I,'A,'[H-$80 

.BY 'A,'T,'lf+$80 

.BY 'P,'E,'E,'K+$80 

.BY 'L,'E,'N+$80 

.BY 'S,'T,'R,'$+$80 

.BY 'V,'A,'L+$80 

.BY 'A,'S,'C+$80 

.BY 'C,'H,'R,'$+$80 

.BY 'L,'E,'F,'T,'$+$80 

.BY 'R,'I,'G,'H,'T,'$+$80 

.BY 'M,'I,'D,'$+$80 

ther commands 

.BY 'G,'CH-$80 

.BY $00 ;end of keywords 



A19E 
AlAC 
A1B5 
A1C2 
AIDO 
AIDB 
A1E2 
AlFO 
AlFF 
A20C 
A210 
A21F 
A225 
A231 
A235 
A23B 
A24A 
A24F 
A25A 
A261 
A26A 
A272 
A27F 
A287 
A290 
A29D 
A2AA 
A2B5 
A2BA 
A2C8 
A2D5 
A2E4 
A2ED 
A2F9 
A300 
A30E 
A315 
A3 IE 
A324 



544F4F 

46494C 

45494c 

46494C 

444556 

505245 

4E4F54 

4E4F54 

4D4953 

4E414D 

494C4C 

4E554D 

4E4558 

20464F 

53594E 

524554 

474F53 

4F5554 

494C4C 

205155 

4F5645 

4F5554 

554E44 

535441 

424144 

524544 

444956 

205A45 

494C4C 

545950 

535452 

46494c 

464F52 

434F4D 

43414E 

554E44 

204655 

564552 

4C4F41 



388 ; error 

389 ; 

390 TA19E 

391 TAIAC 

392 TA1B5 

393 TA1C2 

394 TAIDO 
395 

396 TA1E2 

397 TAIFO 

398 TAIFF 
399 

400 TA210 
401 

402 TA225 
403 

404 TA235 

405 TA23B 
406 

407 TA24F 

408 TA25A 
409 

410 TA26A 

411 TA272 

412 TA27F 
413 

414 TA290 

415 TA29D 

416 TA2AA 
417 

418 TA2BA 

419 TA2C8 

420 TA2D5 

421 TA2E4 

422 TA2ED 
423 

424 TA300 

425 TA30E 
426 

427 TA31E 

428 TA324 



messages 

,BY -T.'O.'O,' ,'M,'A,'N,'Y,' ,-F,'I,-L.'E,'S+$80 

,BY 'F,'I,'L,-E,- ,'0,'P,'E,'I«-$80 

.BY 'F,-I,'L.'E,' , -N.'O.'T.' .-0,'P,'E.'N+$80 

.BY 'F.'I.'L.'E,' .'N.'O.'T,' .'F.'0,'U,'N,'D+$80 

.BY -D,'E,'V,-I,'C,'E,' ,'N,'0,'T,' 

.BY 'P.'R,'E,'S.'E,'N,'T+$80 

.BY 'N,'0,'T,' ,-I,'N,'P.'U.'T.' ,'F.'I,'L, E+$80 
.BY 'N.'O.'T,- .'0.'U.'T,'P.'U,'T,' ,'F,'I.'L.'E+$80 
.BY -M,-I,-S,'S.-I,-N.-G.- .-F.'I.'L.'E.' 
.BY 'N,'A,'M.'E+$80 

.BY 'I,-L,-L,'E,'G,-A,-L,- ,-D,'E ,'V ,'I .'C. 'E. ' 

.BY 'N,'U,-M.-B.'E.'R+$80 

.BY -N.'E.'X.'T.' .'W.-I.'I.'H.'O.'U.'T 

.BY - ,'F,'0,'R+$80 

.BY -S,'Y.-N.-T,'A,'X+$80 

.BY 'R,'E,-T,-U,'R.'N.- .'W.-I .'T ,'H,'0 ,'U,'T ,' 
.BY 'G,'0,'S,'U,'B+$80 

.BY '0,'U,-T,- ,-0,'F,' ,'D,'A,'T.'A+$80 

.BY 'I.-L,'L,'E,'G,'A,'L 

.BY - ,'Q.'U,'A.'N,-T,'I,'T.'Y+$80 

.BY -0.'V.'E,'R.'F.'L,'0.'VH-$80 

.BY '0,'U,'T,' ,'0,-F,- ,-M,-E,-M.-0.-R,'Y+$80 

.BY 'U,'N.'D,'E.'F.$27.-D.' 

.BY 'S,-I,-A,'T,'E,'M,'E,'N,'T+$80 

.BY 'B,'A,'D,' ,-S,-U,-B,-S,'C,'R,'I,'P,-T+$80 

.BY -R.-E.'D,-I.'M.$27.'D.' .'A.-R,'R,-A,'Y+$80 

.BY 'D,-I,'V,-I,'S,-I,-0.-N,- ,-B,'Y 

.BY ' ,'Z,'E,'R,'04-$80 

.BY 'I.'L.'L.-E,'G,'A,'L,' ,'D,'I,-R,'E.'C.'T+$80 

.BY 'T.'Y.'P.'E.' ,'M.'I.'S.'M.'A,'T.'C,'H+S80 

.BY 'S.'T.'R.'I.'N.'G,' ,-T,'0,'0,- ,'L,-0,-N,'G+$80 

.BY 'F,'I.'L.-E,- ,'D,'A,'T,'A+$80 

.BY 'F,'0,'R,'M,'U,'L,'A,' , 'T.'O.'O.' 

.BY 'C.'0.-M.-P.'L.-E.-X+$80 

.BY 'C,-A.'N,$27,-T,- .'C, '0 ,'N,'T,'I , 'N,'U ,-E+$80 

.BY -U,-N,'D,'E,'F,$27.'D 

.BY - ,'F.-U.-N.-C,-T,'I,'0.'N1-$80 

.BY 'V,'E.'R,'I.'F.'Y+$80 

.BY 'L,'0,'A,'D+$80 
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A328 9EA1 
A32A ACAl 
A32C B5A1 
A32E C2A1 
A330 DOAl 
A332 E2A1 
A3 34 FOAl 
A3 36 FFAl 
A338 10A2 
A3 3 A 25A2 
A33C 35A2 
A33E 3BA2 
A340 4FA2 
A342 5AA2 
A344 6AA2 
A346 72A2 
A348 7FA2 
A34A 90A2 
A34C 9DA2 
A34E AAA2 
A3 50 BAA2 
A352 C8A2 
A354 D5A2 
A356 E4A2 
A358 EDA2 
A35A 00A3 
A35C 0EA3 
A35E 1EA3 
A3 60 2 4 A3 
A3 62 83 A3 

A364 0D4F4B 
A369 202045 
A371 20494E 
A376 0D0A52 
A381 ODOA 
A383 425245 



430 ; error 

431 ; index 

432 ; 

433 TA328 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 

463 ; 

464 TA364 

465 TA369 

466 TA371 

467 TA376 

468 TA381 

469 TA383 



message address table 

Ol-IE loaded Into X to reference message table 

.W TA19E ;01 Too Many Files 

.W TAIAC ;02 File Open 

.W TA1B5 ;03 File Not Open 

.W TA1C2 ;04 File Not Found 

.W TAIDO ;05 Device Not Present 

.W IA1E2 ;06 Not Input File 

.W TAIFO ;07 Not Output File 

.W TAIFF ;08 Missing File Name 

.W TA210 ;09 Illegal Device Number 

.W TA225 ;0A Next Without For 

.W TA235 ;0B Syntax 

.W TA23B ;0C Return Without Gosub 

.W TA24F ;0D Out Of Data 

.W TA25A ;0E Illegal Quantity 

.W TA26A ;0F Overflow 

.W TA272 ;10 Out Of Memory 

.W TA27F ;11 Undef'd Statement 

.W TA290 ;12 Bad Subscript 

.W TA29D ;13 Redim'd Array 

.W TA2AA ;14 Division By Zero 

•W TA2BA ;15 Illegal Direct 

.W TA2C8 ;16 Type Mismatch 

W TA2D5 ;17 String Too Long 

W TA2E4 ;18 File Data 

W TA2ED ;19 Formula Too Complex 

W TA300 ;1A Can't Continue 

W TA30E ;1B Undef'd Function 

W TA31E ;1C Verify 

W TA324 ;1D Load 

W TA383 ;1E Break 



.BY $0D,'O,'K,$0D,$O0 
.BY ' ,' ,'E,'R,'R,'O,'R,$00 
.BY ' ,'I,'N,' ,$00 

.BY $0D,$0A,'R,'E,'A,'D,'Y,'.,$0D,$0A,$00 
.BY $OD,$0A 

.BY 'B,'R,'E,'A,'K,$00,$A0 
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471 ;search for "FOR" blocks on stack (code 81) 

473 -if Z49/Z4A > $OOFF, get FOR block with address = Z49/Z4A 

474 ';if Z49/Z4A < $0100, get highest FOR block in Z49/Z4A 

475 -upon exit, X = stack above FOR block 

476 ;Z-1 when FOR block found 

477 ;Z-0 when FOR block not found 

478 ;A=code of block found 

479 ; 



; point to highest block 

;lf no FOR block 
; return with Z=0 

;if no address 

;get address from highest block 



A3 8 A BA 


480 


SA38A TSX 


A38B E8 


481 




INX 


A38C E8 


482 




INX 


A38D E8 


483 




INX 


A38E E8 


484 




INX 


A38F BDOlOl 


485 


BA38F 


LDA XOIOI.X 


A392 C981 


486 




CMP $81 


A394 D021 


487 




BNE BA3B7 


A396 A54A 


488 




LDA Z4A 


A398 DOOA 


489 




BNE BA3A4 


A39A BD0201 


490 




LDA X0102,X 


A39D 8549 


491 




STA Z49 


A39F BD0301 


492 




LDA X0103,X 


A3A2 854A 


493 




STA Z4A 


A3A4 DD0301 


494 


BA3A4 


CMP X0103,X 


A3A7 D007 


495 




BNE BA3B0 


A3A9 A549 


496 




LDA Z49 


A3AB DD0201 


497 




CMP X0102,X 


A3AE F007 


498 




BEQ BA3B7 


A3B0 8A 


499 


BA3B0 


TXA 


A3B1 18 


500 




CLC 


A3B2 6912 


501 




ADC $12 


A3B4 AA 


502 




TAX 


A3B5 D0D8 


503 




BNE BA38F 


A3B7 60 


504 


BA3B7 


RTS 



; compare address to block 



;return with Z=l if equal 
;if not equal 

;sklp a FOR block 

;and try again 
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A3B8 2O08A4 
A3BB 8531 
A3BD 8432 



506 
507 
508 
509 
510 
511 
512 
513 



;move bytes after a check for space 



SA3B8 JSR SA408 
STA Z31 
STY Z32 



;do array area overflow check for AY 
;set new end of array area 



;move bytes routine 
; source address in Z5F/Z60 

514 ;end of source address In Z5A/Z5B 

515 ;end of destination address in Z58/Z59 

516 ; 

517 ;hlghest bytes moved first 

518 ;X and Y at upon return 





519 






A3BF 38 


520 


SA3BF SEC 


A3 CO A55A 


521 




LDA Z5A 


A3C2 E55F 


522 




SBC Z5F 


A3C4 8522 


523 




STA Z22 


A3C6 A8 


524 




TAY 


AJC/ A55B 


525 




LDA Z5B 


A 1 fO Tfccn 
AJCy EjdO 


526 




SBC Z60 


A3CB AA 


527 




TAX 


A3CC E8 


528 




INX 




529 




TYA 


AJuti rUZJ 


530 




BEQ BA3F3 


AJDO A55A 


531 




LDA Z5A 


AjD2 Jo 


532 




SEC 


A3D3 E522 


533 




SBC Z22 


A3D5 855A 


534 




STA Z5A 


AJU/ BUUJ 


535 




BCS BA3DC 


A3D9 C65B 


536 




DEC Z5B 


A3DB 38 


537 




SEC 


A3DC A558 


538 


BA3DC 


LDA Z58 


A3DE E522 


539 




SBC Z22 


A3E0 8558 


540 




STA Z58 


A3E2 BOOS 


541 




BCS BA3EC 


A3E4 C659 


542 




DEC Z59 


A3E6 9004 


543 




BCC BA3EC 


A3E8 B15A 


544 


BA3E8 


LDA (Z5A),Y 


A3EA 9158 


545 




STA (Z58),Y 


A3EC 88 


546 


BA3EC 


DEY 


A3ED D0F9 


547 




BNE BA3E8 


A3EF B15A 


548 




LDA (Z5A),Y 


A3F1 9158 


549 




STA (Z58),Y 


A3F3 C65B 


550 


BA3F3 


DEC Z5B 


A3F5 C659 


551 




DEC Z59 


A3F7 CA 


552 




DEX 


A3F8 D0F2 


553 




BNE BA3EC 


A3FA 60 


554 




RTS 



; compute length of area to be moved 
;Y=low order 8 bits 



;X-hlgh order 8 bits 



;lf multiple of 256, skip remainder 



;Z5A/Z5B points to start source block 



;Z58/Z59 points to destination 



;fetch a 
jmove it 



byte from source 
to destination 



; repeat for all 255 bytes in a page 
;also last byte 

; point to lower block of source 
;polnt to lower block of destination 

; repeat for all blocks 
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556 
557 
558 
559 



;test for 2 * A bytes available on the stack 

•allow 62 bytes extra for interrupt processing 
; indicate fatal error if not enough space left 

;multiply A * 2 
;62 bytes extra 
; error if overflow 



;if stack above result 
; overflow error 



;if A below string storage pointer 
; return 



;save AY 





560 






A3FB OA 


561 I 


3A3FB 


ASL A 


A3FC 693E 


562 




ADC $3E 


A3FE B035 


563 




BCS BA435 


A400 8522 


564 




STA Z22 


A402 BA 


565 




TSX 


A403 E422 


566 




CPX Z22 


A405 902E 


567 




BCC BA435 


A407 60 


568 
569 




RTS 




570 


;array area overfl' 




571 


* 




A408 C434 


572 


SA408 


CPY Z34 


A40A 9028 


573 




BCC BA434 " 


A40C D004 


574 




BNE BA412 


A40E C533 


575 




CMP Z33 


A410 9022 


576 




BCC BA434 


A412 48 


377 


BA412 


PHA 


A413 A209 


578 




LDX $09 


A415 98 


579 




TYA 


A416 48 


580 


BA416 


PHA 


A417 B557 


581 




LDA Z57,X 


A419 CA 


582 




DEX 


A41A lOFA 


583 




BPL BA416 


A41C 2026B5 


584 




JSR SB526 


A41F A2F7 


585 




LDX $F7 


A421 68 




BA421 


PLA 


A422 9561 


587 




STA Z61,X 


A424 E8 


JOO 




INX 


A425 JOFA 


Do 7 




B^a BA421 


A427 68 






PLA 


AA9R Aft 
AhZO ft.O 


591 




TAY 


A429 68 


592 




PLA 


A42A C434 


593 




CPY Z34 


A42C 9006 


594 




BCC BA434 


A42E D005 


595 




BNE BA435 


A430 C533 


596 




CMP Z33 


A432 BOOl 


597 




BCS BA435 


A434 60 


598 
599 


BA434 

r 


RTS 




600 


; fatal error OUT C 




601 


* 




A435 A210 


602 


BA435 LDX $10 



:save Z58-Z61 on stack 



; perform string cleanup 



;restore Z58-Z61 from stack 



; res tore AY 

;if AY still above string pointer, 
;then error OUT OF MEMORY 



; point to error OUT OF MEMORY 
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A437 6C0003 



A43A 

A43B 

A43C 

A43D 

A440 

A442 

A445 

A447 

A44A 

A44C 

A44E 

A451 

A454 

A456 

A458 

A459 

A45B 

A45E 

A45F 

A460 

A462 

A465 

A467 

A469 

A46C 

A46E 

A46F 

A471 

A474 

A476 

A478 

A47B 

A47D 

A480 



8A 
OA 
AA 

BD26A3 

8522 

BD27A3 

8523 

20CCFF 

A900 

8513 

20D7AA 

2045AB 

AOOO 

B122 

48 

297F 
204 7AB 
C8 
68 

10F4 

207AA6 

A969 

A0A3 

201EAB 

A43A 

C8 

F003 

20C2BD 

A976 

A0A3 

201EAB 

A980 

2090FF 

6C0203 



604 ;handle error messages 

605 ; 

606 ;X points to error message address table TA328 

607 ; 

608 JA437 JMP (X0300) ;handle error message (normally A43A) 

609 ; 

; standard error message handler 



610 
611 
612 
613 
614 
615 
516 
617 
618 
619 
620 
621 
622 
623 
624 



TXA 
ASL A 
TAX 

LDA TA328-2,X ; fetch address from error message table 
STA Z22 
LDA TA328-1,X 
STA Z23 
JSR XFFCC 
LDA $00 
STA Z13 
JSR SAAD7 
JSR SAB45 
LDY $00 



;restore I/O devices to default 

;set default CMD output file 
;end line on CMD output file 
; print question mark on output file 



625 BA456 LDA (Z22),Y 



626 
627 
628 
629 
630 
531 
632 
633 
634 



PHA 

AND $7F 
JSR SAB47 
INY 
PLA 

BPL BA456 
JSR SA57A 
LDA <TA359 
LDY >TA369 

635 JA469 JSR SABIE 

636 LDY Z3A 

637 INY 

638 BEQ BA474 

639 JSR SBDC2 

640 BA474 LDA <TA376 
541 LDY >TA376 

642 JSR SABIE 

643 LDA $80 

644 JSR XFF90 

645 BA480 JMP (X0302) 

646 ; 

547 ;standard warm start routine (BASIC Interpreter) 
648 ; 

;get statement into the input buffer 
;move beginning of line address 
;to current character address 
;get next character of statement 

;skip statement if end of line 

;set Run/Direct switch to Direct 
;if no line number, 
; encode keywords in statement 
;and go execute statement 



; print a character on output file 



; repeat if end of message not reached 
;reset stack and program pointers 

;set AY to mesage ERROR 
; print message from AY 
;if in direct mode 

; restart BASIC 

;else print IN STATEMENT and t 

;set AY to message READY 
; print READY message 

;set kernal msg flag for direct mode 
;perform warm start (normally A483) 



A483 


2060A5 


649 


JSR SA560 


A485 


867A 


550 


STX Z7A 


A488 


847B 


651 


STY Z7B 


A48A 


207300 


652 


JSR X0073 


A48D 


AA • 


653 


TAX 


A48E 


FOFO 


654 


BEQ BA480 


A490 


A2FF 


555 


LDX $FF 


A492 


853A 


556 


STX Z3A 


A494 


9006 


657 


BCC BA49C 


A496 


2079A5 


658 


JSR SA579 


A499 


4CE1A7 


659 


JMP JA7E1 
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561 


numbered 


statement 




662 






A49C 206BA9 


663 BA49C JSR SA96B 


A49F 2079A5 


664 


JSR SA579 


A4A2 840B 


665 


STY 


ZOB 


A4A4 2013A6 


666 


JSR 


SA613 


A4A7 9044 


667 


BCC 


BA4ED 




668 








669 


;delete old statem 




670 






A4A9 AUUi 


671 


LDY 


$01 


A4AB B15F 


672 


LDA (Z5F),Y 


A4AD 03ZJ 


673 


STA 


Z23 


A4AF A52D 


674 


LDA 


Z2D 


A4B1 8522 


675 


STA 


Z22 


A/n't aC£/^ 

A4B3 A560 


676 


LDA 


Z60 




677 


STA 


Z25 


A4B7 A55F 


678 


LDA 


Z5F 


A4B9 oo 


679 


DEY 




A4BA F15F 


680 


SBC (Z5F),Y 


A4BC 18 


681 


CLC 




A4BD 652D 


682 


ADC 


Z2D 


A4BF 85 2D 


683 


STA 


Z2D 


A4C1 8524 


684 


STA 


Z24 


A4C3 A52E 


685 


LDA 


Z2E 


A4C5 69FF 


686 


ADC 


$FF 


A4C7 852E 


687 


STA 


Z2E 


A4C9 E560 


688 


SBC 


Z60 


A4CB AA 


689 


TAX 




A4CC 38 


690 


SEC 




A4CD A55F 


691 


LDA 


Z5F 


A4CF E52D 


692 


SBC 


Z2D 


A4D1 A8 


693 


TAY 




A4D2 B003 


694 


BCS 


BA4D7 


A4d4 E8 


695 


INX 




A4D5 Co 2 5 


696 


DEC 


Z25 


A4D7 18 


697 


BA4D7 CLC 




A4D8 6522 


698 


ADC 


Z22 


A4DA 9003 


699 


BCC 


BA4DF 


A4DC C623 


700 


DEC 


Z23 


A4DE 18 


701 


CLC 




A4DF B122 


702 


BA4DF LDA (Z22),Y 


A /■ IT 1 Q 1 •) A 


703 


STA (Z24),Y 


A4E3 C8 


704 


INY 




A4E4 D0F9 


705 


BNE 


BA4DF 


A4E6 E623 


706 


INC 


Z23 


A4E8 E625 


707 


INC 


Z25 


A4EA CA 


708 


DEX 




A4EB D0F2 


709 


BNE 


BA4DF 



jgather line number into Z14/Z15 
; encode keywords in statement 
jsave index for end of line 
; search for statement in program 
;if not found, insert line 



move low of pointer to next statement 

imove low of ptr beyond last statement 

move byte of ptr to current statement 

low byte of ptr to current statement 
-low byte of pointer to next statement 
length of gap in 2's complement 

+ low byte ptr beyond last statement 
= new pointer beyond last statement 
also saved 

high byte of ptr beyond last statement 
+ carry 

new high of pointer beyond last stmt 
;-high of pointer to current stmt 
"high byte of # of bytes to move 

low byte of ptr to current statement 
-low of pointer beyond last statement 
=number of bytes to move 
if necessary, 
adjust carry 

also adjust low end pointer 



;get byte from low end 
:move to new low end 



; repeat until page moved 
; update page pointers 



; repeat until last block moved 



15 



711 jlnsert new line at location Indicated by Z5F/Z60 







712 






A4ED 


2059A6 


713 


BA4ED JSR SA659 


A4F0 


2033A5 


714 




JSR SA533 


A4F3 


AD0002 


715 




LDA X0200 


A4F6 


F088 


716 




BEQ BA480 


A4F8 


18 


717 




CLC 


A4F9 


A52D 


718 




LDA Z2D 


A4FB 


85 5A 


719 




STA Z5A 


A4FD 


650B 


720 




ADC ZOB 


A4FF 


8558 


721 




STA Z58 


A501 


A42E 


722 




LDY Z2E 


A503 


845B 


723 




STY Z5B 


A505 


9001 


724 




BCC BA508 


A507 


C8 


725 




INY 


A508 


8459 


726 


BA508 


STY Z59 


A50A 


20B8A3 


727 




JSR SA3B8 


A50D 


A514 


728 




LDA Z14 


A50F 


A415 


729 




LDY Z15 


A511 


8DFE01 


730 




STA XOIFE 


A514 


8CFF01 


731 




STY XOIFF 


A517 


A531 


732 




LDA Z31 


A519 


A432 


733 




LDY Z32 


A51B 


852D 


734 




STA Z2D 


A51D 


84 2E 


735 




STY Z2E 


A51F 


A40B 


736 




LDY ZOB 


A521 


88 


737 




DEY 


A522 


B9FC01 


738 


BA522 


LDA X0200-4,Y 


A525 


915F 


739 




STA (Z5F),Y 


A527 


88 


740 




DEY 


A528 


10F8 


741 




BFL BA522 


A52A 


2059A6 


742 




JSR SA659 


A52D 


2033A5 


743 




JSR SA533 


A530 


4C80A4 


744 




JHP BA480 



;reset program pointers 
; relink BASIC lines 

;if first byte of new line is a null, 
; don't insert 

;get low byte of pointer to end of line 
;save as end pointer for move 
;add length of line to be Inserted 
;save as end outpout pointer for move 
;save high bytes also 



;move bytes and check for overflow 
;move line number 

;to fields preceeding Input buffer 

;use new upper limit 

;as new end of program 

;get length of line to be inserted 

;move new line 
;lnto gap 

;loop until line moved 
; reset program pointers 
; relink BASIC lines 
;go back to BASIC 
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4 hO 


; relink BASIC 




A533 


A52B 


747 
748 


> 

SA533 


LDA Z2B 


•get pointer to beginning of BASIC text 


A535 


A42C 


749 




LDY Z2C 


'hold in temporary pointer 


A537 


8522 


750 




SIA Z22 


A539 


8423 


751 




STY Z23 




A53B 


18 


752 




CLC 




A53C 


AOOl 


753 


BA53C 


LDY $01 




A53E 


B122 


754 




LDA (Z22),Y 


;get byte at current statement + 1 


A540 


FOID 


755 




BEQ BA55F 


• 4 f a»- n onH ctf nvnQTivBi reached 


A542 


AO 04 


756 




LDY $04 


* cat" cl'ai't' index 


A544 


C8 


757 


BA544 


INY 


* increment index 


A545 


B122 


758 




LDA (Z22),Y 




A547 


DOFB 


/ DJ 




BNE BA544 


* scan to end of line 


A549 


C8 


7 An 




INY 




A54A 


QQ 


761 




TYA 




A54B 


6522 


762 




ADC Z22 


;compute pointer to next statement 


A54D 


AA 


/ D J 




TAX 




A54E 


AOOO 






LDY $00 




A550 


9122 


765 




STA (Z22) ,Y 


;set link in beginning of statement 


A552 


A523 


766 




LDA Z23 




A554 


6900 


767 




ADC $00 




A556 


C8 


768 




INY 


I set new CUI.£CUt> Sl.a.l.cuiciit. owuicao 


A557 


9122 


769 




STA (Z22),Y 


A559 


8622 


770 




SIX Z22 




A55B 


8523 


771 




STA Z23 


• ixnAnn-l- •mf-'T'l -all c t" a t" OTTI O Tl t" Q nTTtf^PSSpH 


A55D 


90DP 


772 




BCC BA53C 


A55F 


60 


773 


BA55F 


RTS 








774 












775 


;get 


statement into 


Input buffer 






776 








A560 


A200 


777 


SA560 


LDX $00 


jSt£ir>.l wlcn index— u 


A562 


2012E1 


778 


BA562 


JSR XE112 


J get clean character fi^om CMD file 


A555 


C90D 


779 




CMP $0D 


;if Return, 


A567 


FOOD 


780 




BEQ BA576 


J go end line 


A569 


9D0002 


781 




STA X0200,X 


jexse scoic ^ ^it^viw ^ ^ ^ *- 




WB 
CiO 


782 




INX 




A56D 


E059 


783 




CPX $59 


;if statement not too long 


A56F 


90F1 


784 




BCC BA562 


; repeat 


A571 


A217 


785 




LDX $17 


;else point to messge STRING TOO LONG 


A573 


4C37A4 


786 




JMP JA437 


;and print error message 






787 








A576 


4CCAAA 


788 


BA576 


JMP JAACA 


;go end line 
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A579 6C0403 



A57C A67A 
A57E A004 
A580 840F 
A582 BD0002 
A585 1007 
A587 C9FF 
A589 F03E 
A58B E8 
A58C D0F4 
A58E C920 
A590 F037 
A592 8508 
A594 C922 
A596 F056 
A598 240F 
A59A 702D 
A59C C93F 
A59E D004 
A5A0 A999 
A5A2 D025 
A5A4 C930 
A5A6 9004 
A5A8 C93C 
A5AA 901D 
A5AC 8471 
A5AE AOOO 
A5B0 840B 
A5B2 88 
A5B3 867A 
A5B5 CA 
A5B6 C8 
A5B7 E8 
A5B8 BD0002 
A5BB 38 
A5BC F99EA0 
A5BF F0F5 
A5C1 C980 
A5C3 D030 
A5C5 050B 
A5C7 A471 
A5C9 E8 
A5CA C8 
A5CB 99FB01 
A5CE B9FB01 
A5D1 F036 
A5D3 38 
A5D4 E93A 
A5D6 F004 
A5D8 C949 
A5DA D002 
A5DC 850F 
A5DE 38 
A5DF E955 
A5E1 D09F 
A5E3 8508 
A5E5 BD0002 



790 


SA579 


i JMP 


(X0304) 


; crunch tokens (normally A57C) 


791 








792 


; crunch tokens routine 


793 


; 








794 




LDX 


Z7A 


;get Input index 


795 




LDY $04 


;set output index -5 


796 




STY 


ZOF 


;set not a DATA statement 


797 


BA582 


LDA 


X0200,X 


;get next character 


798 




BPL 


BA58E 




799 




CMP 


$FF 


; check for PI 


800 




BEQ 


BA5C9 




801 




INX 




;other codes above $7F are Ignored 


802 




BNE 


BA582 




803 


BA58E 


CMP 


$20 


;move blanks 


804 




BEQ 


BA5C9 




805 




STA 


Z08 


;save possible quote 


806 




CMP 


-•■ 




807 




BEQ 


BA5EE 


;move string when between quotes 


808 




BIT 


ZOF 


;move character if in DATA statement 


809 




BVS 


BA5C9 




810 




CMP 


$3F 


;if question mark 


811 




BNE 


BA5A4 




812 




LDA 


$99 


; replace by code for PRINT 


813 




BNE 


BA5C9 




814 


BA5A4 


CMP 


'0 


;move if numeric 


815 




BCC 


BA5AC 




816 




CMP 


$3C 




817 




BCC 


BA5C9 




818 


BA5AC 


STY 


Z71 


;save output index 


819 




LDY $00 


; initialize table index 


820 




STY 


ZOB 


; initialize keyword count 


821 




DEY 






822 




STX Z7A 


;save input index 


823 




DEX 






824 


BA5B6 


INY 




;next character in table 


825 




INX 




;next character in line 


826 


BA5B8 


LDA 


X0200,X 


;get character from input buffer 


827 




SEC 




828 




SBC TA09E,Y 


;lf equal to table character 


829 




BEQ BA5B6 


;try next 


830 




CMP 


$80 


;if equal to character without bit 7 


831 




BNE 


BA5F5 




832 




ORA 


ZOB 


;save keyword count + $80 


833 


BA5C7 


LDY 


Z71 


; restore output index 


834 


BA5C9 


INX 




; advance input index 


835 




INY 




; advance output index 


836 




STA 


X0200-5,Y 


; store character or code 


837 




LDA 


X0200-5,Y 




838 




BEQ 


BA609 


;if zero, end of string 


839 




SEC 






840 




SBC 




;if colon, set flag to not data 


841 




BEQ BA5DC 




842 




CMP 


$49 


;if code for DATA, set flag 


843 




BNE 


BA5DE 



844 
845 
846 
847 
848 



BA5DC STA ZOF 

BA5DE SEC 

SBC $55 
BNE BA582 
STA Z08 



849 BA5E5 LDA X0200,X 



;if REM 

;set 00 as terminator 

;get next character from input buffer 
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A5E8 

A5EA 

A5EC 

A5EE 

A5EF 

A5F2 

A5F3 

A5F5 

A5F7 

A5F9 

A5FA 

A5FD 

A5FF 

A602 

A604 

A607 

A609 

A60C 

A60E 

A610 

A612 



FODF 
C508 
FODB 
C8 

99FB01 
E8 

DOFO 
A67A 
E60B 
C8 

B99DA0 

lOFA 

B99EA0 

D0B4 

BD0002 

lOBE 

99FD01 

C67B 

A9FF 

857A 

60 



850 
851 
852 

853 BA5EE 
854 
855 
856 

857 BA5F5 
858 

859 BA5F9 

860 

861 

862 

863 

864 

865 

866 BA609 

867 

868 

869 

870 



BEQ BA5C9 
CMP Z08 
BEQ BA5C9 
INY 

STA X0200-5,Y 
INX 

BNE BA5E5 
LDX Z7A 
INC ZOB 
INY 

LDA TA09E-1,Y 
BPL BA5F9 
LDA TA09E,Y 
BNE BA5B8 
LDA X0200,X 
BPL BA5C7 
STA X0200-3 ,Y 
DEC Z7B 
LDA $FF 
STA Z7A 
RTS 



;end upon zero 

;or terminator (") 
; advance output Index 
;move character 
; advance input index 
; repeat 

;at end of keyword from table 

; increment count 

; advance table pointer 

; beyond end of last keyword 

;if not at end of table 

; restore Input character 
; repeat 

;set end of line 

;set current character pointer 

;to beginning of input buffer again 
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872 ; search for a statement In the program 

873 ; 

874 ;line number search argument in Z14/Z15 

875 ;exlt with C=l/0 for found/not found 

876 ;Z5F/Z60 set to address of statement found, or next higher 

877 : 



A613 A52B 878 SA613 LDA Z2B 

A615 A62C 879 LDX Z2C 

A617 AOOl 880 BA617 LDY $01 

A619 855F 881 STA Z5F 

A61B 8660 882 SIX Z60 

A61D B15F 883 LDA (Z5F),Y 

A61F FOIF 884 BEQ BA640 

A521 C8 885 INY 

A622 C8 886 INY 

A623 A515 887 LDA Z15 

A625 D15F 888 CMP (Z5F),Y 

A627 9018 889 BCC BA64I 

A629 F003 890 BEQ BA62E 

A62B 88 891 DEY 

A62C D009 892 BNE BA637 

A62E A514 893 BA62E LDA Z14 

A630 88 894 DEY 

A631 D15F 895 CMP (Z5F),Y 

A633 900C 896 BCC BA641 

A635 FOOA 897 BEQ BA641 

A637 88 898 BA637 DEY 

A638 B15F 899 LDA (Z5F),Y 

A63A AA 900 TAX 

A63B 88 901 DEY 

A63C B15F 902 LDA (Z5F),Y 

A63E B0D7 903 BCS BA617 

A640 18 904 BA640 CLC 

A641 60 905 BA641 RTS 



;get pointer to beginning of BASIC 



;save pointer to current statement 

;get link address In current statement 
;0=end of program 



; compare statement numbers 
;return if search high (not found) 
; since high matches, check low 

; continue since statement number low 



; compare low order of statement numbers 
; return if high 
; return if equal 

;get pointer to next statement in AY 



; repeat 



20 



907 ;"NEW" command 

908 ; 



A642 


DOFD 


909 


^A642 


dUIL BAD'*! 


A644 


A900 


910 




1 nil cnn 


A646 


A8 


911 




TAY 


A647 


912B 


912 




SiA ^,iZD^,l 


A649 


C8 


913 




INY 


A64A 


912B 


914 




STA v^zb; ,i 


A64C 


A52B 


915 




LDA Z2B 


A64E 


18 


916 




CLC 


A64F 


6902 


917 




ADC $02 


A651 


852D 


918 




STA Z2D 


A653 


A52C 


919 




LDA Z2C 


A655 


6900 


920 




ADC $00 


A657 


852E 


921 




STA Z2E 


A659 


208EA6 


922 


SA659 


JSR SA68E 


A65C 


A900 


923 
924 




LDA $00 






925 


;"CLR" command 






926 






A55E 


D02D 


927 


WA65E 


BNE BA68D 


A650 


20E7FF 


928 


SA660 


JSR XFFE7 


A663 


A537 


929 




LDA Z37 


A665 


A438 


930 




LDY Z38 


A667 


8533 


931 




STA Z33 


A669 


8434 


932 




STY Z34 


A66B 


A52D 


933 




LDA Z2D 


A66D 


A42E 


934 




LDY Z2E 


A66F 


852F 


935 




STA Z2F 


A671 


8430 


936 




STY Z30 


A673 


8531 


937 




STA Z31 


A675 


8432 


938 




STY Z32 


A677 


201DA8 


939 




JSR SA81D 



A67A 
A67C 
A67E 
A67F 
A680 
A681 
A683 
A684 
A685 
A686 
A687 
A689 
A68B 
A68D 



A219 

8616 

68 

A8 

68 

A2FA 

9A 

48 

98 

48 

A900 
853E 
8510 
60 



940 ; 

941 ; reset stack, and 

942 ; 

943 SA67A LDX <Z19 



944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 



STX Z16 
PLA 
TAY 
PLA 

LDX $FA 

TXS 

PHA 

TYA 

PHA 

LDA $00 
STA Z3E 
STA ZIO 



;if parameters present, SYNTAX Error 



; store zero s 

;ln first 2 bytes of BASIC program area 
;pointer to start of BASIC 

;+ 2 

; becomes pointer to end of BASIC 



;re-lnitlalize current character ptr 
;Z = 1 



;if parameters present, SYNTAX Error 
; close all channels and files 
;get memory limit in AY 

;reset string storage pointer 

;move pointer to variables in AY 

;into pointer to start of arrays 

;also into pointer to end of arrays 

;perform RESTORE 

program pointers 



;reset string descriptor stack index 
;get own return address in AY 



;reset stack pointer 

;put own return address back on stack 



; clear pointer for CONTinue 
;also subscript flag 



956 BA68D RTS 
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958 


; set 


current ch 






959 








A68E 


18 


960 


SA68E 


CLC 




A68F 


A52B 


961 




LDA 


Z2B 


A691 


69FF 


962 




ADC 


$FF 


A693 


857A 


963 




STA 


Z7A 


A695 


A52C 


964 




LDA 


Z2C 


A697 


69FF 


965 




ADC 


$FF 


A699 


857B 


966 




STA 


Z7B 


A69B 


60 


967 
968 




RTS 








969 


; "LIST" command 






970 








A69C 


9006 


971 


WA69C 


BCC 


BA6A4 


A69E 


F004 


972 




BEQ 


BA6A4 


A6A0 


C9AB 


973 




CMP 


$AB 


A6A2 


D0E9 


974 




BNE 


BA68D 


A6A4 


206 BA9 


975 


BA6A4 


JSR 


SA96B 


A6A7 


201 3 A6 


976 




JSR 


SA613 


A6AA 


207900 


977 




JSR 


X0079 


A6AD 


FOOC 


978 




BEQ 


BA6BB 


A6AF 


C9AB 


979 




CMP 


$AB 


A6B1 


DOSE 


980 




BNE 


BA641 


A6B3 


207300 


981 




JSR 


X0073 


A6B6 


206BA9 


982 




JSR 


SA96B 


A6B9 


D086 


983 




BNE 


BA641 


A6BB 


68 


984 


BA6BB 


PLA 




A6BC 


68 


985 




PLA 




A6BD 


A514 


986 




LDA 


Z14 


A6BF 


0515 


987 




ORA 


Z15 


A6C1 


D006 


988 




BNE 


BA6C9 


A6C3 


A9FF 


989 




LDA 


$FF 


A6C5 


8514 


990 




STA 


Z14 


A6C7 


8515 


991 




STA 


Z15 



set current character pointer to beginning of program -1 



;get pointer to beginning of BASIC area 

;-i 

; store into current character pointer 
;same for high byte 



; parameter must be numeric, 
;or else none at all 
;or "-" 

;i£ none of above, SYNTAX Error 

;gather decimal number into Z14/Z15 

; search for statement in program 

;get current character 

;if not at end of statement 

;or 

;then SYNTAX Error 

;get next character after "-" 

; gather decimal number into Z14/Z15 

;if not end of statement, SYNTAX Error 

jremove return address from stack 

;if last parameter zero (missing) 



;set it to 65535 
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993 ;list statement 





994 ; 




A6C9 AOOl 


995 BA6C9 LDY $01 


A6CB 840F 


996 


STY ZOF 


A6CD B15F 


997 


LDA (Z5F) ,Y 


A6CF F043 


998 


BEQ BA714 


A6D1 202CA8 


999 


JSR SA82C 


A6D4 20D7AA 


1000 


JSR SAAD7 


A6D7 C8 


1001 


INY 


A6D8 B15F 


1002 


LDA (Z5F) ,Y 


A6DA AA 


1003 


TAX 


A6DB C8 


1004 


INY 


A6DC B15F 


1005 


LDA (Z5F) ,Y 


A6DE C515 


1006 


CMP Z15 


A6E0 D004 


1007 


BNE BA6E6 


A6E2 E414 


1008 


CPX Z14 


A6E4 F002 


1009 


BEQ BA6E8 


A6E6 B02C 


1010 


BA6E6 BCS BA714 


A6E8 8449 


1011 


BA6E8 STY Z49 


A6EA 20CDBD 


1012 


JSR SBDCD 


A6ED A920 


1013 


LDA $20 


A6EF A449 


1014 


BA6EF LDY Z49 


A6F1 297F 


1015 


AND $7F 


A6F3 2047AB 


1016 


BA6F3 JSR SAB47 


A6F6 C922 


1017 


CMP '■■ 


A6F8 D006 


1018 


BNE BA700 


A6FA A50F 


1019 


LDA ZOF 


A6FC 49FF 


1020 


EOR $FF 


A6FE 850F 


1021 


STA ZOF 


A700 C8 


1022 


BA700 INY 


A701 FOll 


1023 


BEQ BA714 


A703 B15F 


1024 


LDA (Z5F) ,Y 


A705 DOlO 


1025 


BNE BA717 


A707 A8 


1026 


TAY 


A708 B15F 


1027 


LDA (Z5F),Y 


A70A AA 


1028 


TAX 


A70B C8 


1029 


INY 


A70C B15F 


1030 


LDA (Z5F),Y 


A70E 865F 


1031 


STX Z5F 


A710 8550 


1032 


STA Z60 


A712 DOBS 


1033 


BNE BA6C9 


A714 4C86E3 


1034 


BA714 JMP XE386 



Z5F/Z60 thru Z14/Z15 

;set string switch to not a string 

;get high byte of link address for line 
;0=end of program, go restart BASIC 
; check for Stop Key 
;end line on CMD output file 

;set AX to statement # 

; compare to end of list statement 



;if higher, stop 

;save index in statement 

; print statement # from AX 

; insert a blank 

; restore index in statement 

; clear bit 7 

; print character from A on CMD file 
;if a quote character 



;flip string switch 
; advance index 

;if line too long, restart BASIC 

;lf not end of line, go print it 
;if end of line, 

;get pointer to next statement in AX 



;and reset line address 

;then loop back for next line 
;go restart BASIC 
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A717 6C0603 1036 BA717 JMP (X0306) 







1037 


* 










1038 


; print tokens 






1039 


t 






A71A 


10D7 


1040 




BPL 


BA6F3 


A71C 


C9FF 


1041 




CMP 


$FF 


A71E 


F0D3 


1042 




BEQ 


BA6F3 


A720 


240F 


1043 




BIT 


ZOF 


A722 


30CF 


1044 




BMI 


BA6F3 


A724 


38 


1045 




SEC 




A725 


E97F 


1046 




SBC 


$7F 


A727 


AA 


1047 




TAX 


A728 


8449 


1048 




STY 


Z49 


A72A 


AOFF 


1049 




LDY 


$FF 


A72C 


CA 


1050 


BA72C 


DEX 




A72D 


F008 


1051 




BEQ 


BA737 


A72F 


C8 


1052 


BA72F 


INY 




A730 


B99EA0 


1053 




LDA 


TA09E,Y 


A733 


lOFA 


1054 




BPL 


BA72F 


A735 


30F5 


1055 
1056 


* 


BMI 


BA72C 






1057 


; print keyword 






1058 








A737 


C8 


1059 


BA737 


INY 




A738 


B99EA0 


1060 




LDA 


TA09E,Y 


A73B 


30B2 


1061 




BMI 


BA6EF 


A73D 


2047AB 


1062 




JSR 


SAB47 


A740 


D0F5 


1063 




BNE 


BA737 



;go print tokens (normally A71A) 



;if bit 7 clear, print one character 
;if code for PI, 
; print PI 

;1£ in string mode 

;also print shifted codes 

; compute keyword # 

; save index in statement 

;if keyword found 
;go print keyword 

;else get character from keyword table 
;untH bit 7 set (end of keyword) 



;get next character from keyword table 
;if bit 7 set go print last character 
; print character on CMD file 
;and repeat 
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1065 ;"FOR" command 





1065 ; 




A742 A980 


1067 WA742 LDA $80 


A74A 8510 


1068 


STA ZIO 


A746 20A5A9 


1069 


JSR SA9A5 


A749 208AA3 


1070 


JSR SA38A 


A74C D005 


1071 


BNE BA753 


A74E 8A 


1072 


TXA 


A74F 690F 


1073 


ADC $0F 


A751 AA 


1074 


TAX 


A752 9A 


1075 


TXS 


A753 68 


1075 BA753 PLA 


A754 68 


1077 


PLA 


A755 A909 


1078 


LDA $09 


A757 20FBA3 


1079 


JSR SA3FB 


A75A 2005A9 


1080 


JSR SA905 


A75D 18 


1081 


CLC 


A75E 98 


1082 


TYA 


A75F 657A 


1083 


ADC Z7A 


A761 48 


1084 


PHA 


A762 A57B 


1085 


LDA Z7B 


A764 6900 


1086 


ADC $00 


A766 48 


1087 


PHA 


A767 A53A 


1088 


LDA Z3A 


A769 48 


1089 


PHA 


A76A A539 


1090 


LDA Z39 


A76C 48 


1091 


PHA 


A76D A9A4 


1092 


LDA $A4 


A76F 20FFAE 


1093 


JSR SAEFF 


A772 208DAD 


1094 


JSR SAD8D 


A775 208AAD 


1095 


JSR SAD8A 


A778 A566 


1096 


LDA Z56 


A77A 097F 


1097 


ORA $7F 


A77C 2562 


1098 


AND Z62 


A77E 8562 


1099 


STA Z62 


A780 A98B 


1100 


LDA <WA78B 


A782 A0A7 


1101 


LDY >WA78B 


A784 8522 


1102 


STA Z22 


A786 8423 


1103 


STY Z23 


A788 4C43AE 


1104 


JMP JAE43 




1105 




A78B A9BC 


1106 


WA78B LDA <TB9BC 


A78D A0B9 


1107 


LDY >TB9BC 


A78F 20A2BB 


; 1108 


JSR SBBA2 


A792 207900 


1109 


JSR X0079 


A795 C9A9 


1110 


CMP $A9 


A797 D006 


1111 


BNE BA79F 


A799 207300 


1 1112 


JSR X0O73 


A79C 208AAD 1113 


JSR SAD8A 


A79F 202BBC 1114 


BA79F JSR SBC2B 


A7A2 2038AE 1115 


JSR SAE38 


A7A5 A54A 


1116 


LDA Z4A 


A7A7 48 


1117 


PHA 


A7A8 A549 


1118 


LDA Z49 


A7AA 48 


1119 


PHA 


A7AB A981 


1120 


LDA $81 


A7AD 48 


1121 


PHA 



;set flag for 

;no Integer variables or array elements 

; execute comand LET 

;get FOR block of variable used 

;if found, 

;drop stack ptr below that FOR block 

;remove return address from stack 

;9 addresses on stack needed 

;else OUT OF MEMORY Error 

;get offset to end of statement 

; compute pointer to end of statement 



;save on stack 



;save current statement # on stack 

;if not TO, then SYNTAX Error 
; initial value must be non-string 
;get next non-string value (TO value) 
;move sign of flp accu 

;into most significant bit 

;set return address for continuation 

;round and save flp accu (TO value) 

;set AY to default step (1) 

;load default step 
;get next character 
;if STEP 

;get next character 

;get next non-string value 

;get SON of flp accu 

;round flp accu and save on stack 

;save pointer to FOR variable 



;save code for FOR block 
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1123 ;execute next statement 







1124 


; 




A7AE 


202CA8 


1125 


JA7AE 


JSR SA82C 


A7B1 


A57A 


1126 




LDA Z7A 


A7B3 


A47B 


1127 




LDY Z7B 


A7B5 


C002 


1128 




CPY $02 


A7B7 


EA 


1129 




NOP 


A7B8 


F004 


1130 




BEQ BA7BE 


A7BA 


853D 


1131 




STA Z3D 


A7BC 


843E 


1132 




STY Z3E 


A7BE 


AOOO 


1133 


BA7BE 


LDY $00 


A7C0 


B17A 


1134 




LDA (Z7A),Y 


A7C2 


D043 


1135 




BNE BA807 


A7C4 


A002 


1136 




LDY $02 


A7C6 


B17A 


1137 




LDA (Z7A),Y 


A7C8 


18 


1138 




CLC 


A7C9 


D003 


1139 




BNE BA7CE 


A7CB 


4C4BA8 


1140 
1141 


; 


JMP JA84B 


A7CE 


C8 


1142 


BA7CE 


INY 


A7CF 


B17A 


1143 




LDA (Z7A),Y 


A7D1 


8539 


1144 




STA Z39 


A7D3 


C8 


1145 




INY 


A7D4 


B17A 


1146 




LDA (Z7A),Y 


A7D6 


853A 


1147 




STA Z3A 


A7D8 


98 


1148 




TYA 


A7D9 


657A 


1149 




ADC Z7A 


A7DB 


857A 


1150 




STA Z7A 


A7DD 


9002 


1151 




BCC JA7E1 


A7DF 


E67B 


1152 




INC Z7B 


A7E1 


6C0803 


1153 


JA7E1 


JMP (X0308) 






1154 








1155 


; execute a statement 






1156 


> 




A7E4 


207300 


1157 




JSR X0073 


A7E7 


20EDA7 


1158 




JSR SA7ED 


A7EA 


4CAEA7 


1159 




JMP JA7AE 



; check Stop Key 

;get ptr to end of old statement in AY 



;if not direct mode, 

; store pointer for possible CONT 



;get last byte 

;if not 0, check for ":" 

;get high of pointer to next statement 



;0=end of program 



;move statement # into Z39/Z3A 



; advance pointer over statement header 



;go execute a statement (normally A7E4) 



;get next character 
; execute command in A 
;go execute next statement 
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A7ED 
A7EF 
A7F1 
A7F3 
A7F5 
A7F7 
A7F8 
A7F9 
A7FC 
A7FD 
A800 
A801 



F03C 

E980 

9011 

C923 

B017 

OA 

AS 

B90DA0 
48 

B90CA0 
48 

4C7300 



A807 C93A 
A809 F0D6 
A80B 4C08AF 

A80E C94B 
A810 D0F9 
A812 207300 
A815 A9A4 
A817 20FFAE 
A81A 4CA0A8 



1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 



; execute command in A 



SA7ED BEQ BA82B 
JA7EF SBC $80 

BCC BA804 
CMP $23 
BOS BA80E 
ASL A 
TAY 

LDA TAOOC+l.Y 
PHA 

LDA TAOOC.Y 
PHA 

JMP X0073 



•if Z = 1, return (dummy statement) 
';if A < $80 
; perform LET 

;lf A = > A3 (highest command) 

•then check for GOTO 

;get 2 * (A - 80) as index to table 

imove routine address onto stack 



;get first char of parameters and go 



A804 4CA5A9 1176 BA804 JMP SA9A5 ;execute command LET 



BA807 CMP ': 

BEQ JA7E1 
BA80B JMP JAF08 

BA80E CMP $4B 

BNE BA80B 
JSR XO073 
LDA $A4 
JSR SAEFF 
JMP JA8A0 



;if character is a colon, 
; execute next command 
;else print SYNTAX Error 

;if not code for GO 
;then SYNTAX Error 
;else get next character 
;set code for TO 
;if equal 

;go do command GOTO 
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A81D 
AS ID 
ABIE 
A820 
A822 
A824 
A826 
A827 
A829 
A82B 



38 

A52B 
E901 
A42C 
BOOl 
88 

8541 
8442 
60 



A82C 20E1FF 



A82F BOOl 



A831 
A832 
A834 
A836 
A838 
A83A 
A83B 
A83D 
A83F 
A841 
A843 
A845 
A847 
A849 
A84A 
A84B 
A84D 
A84F 
A851 
A854 



18 

D03C 
A57A 
A47B 
A63A 
E8 

FOOC 

853D 

843E 

A539 

A43A 

853B 

843C 

68 

68 

A981 

A0A3 

9003 

4C69A4 

4C86E3 



1189 ; "RESTORE" command 

1190 ; 

1191 WA81D = * 

1192 SA81D SEC 



1193 
1194 
1195 
1196 
1197 



LDA Z2B 
SBC $01 
LDY Z2C 
BCS BA827 
DEY 



1198 BA827 STA Z41 

1199 STY Z42 

1200 BA82B RTS 

1201 ; 

1202 SA82C JSR XFFEl 

1203 ; 

1204 ;"STOP" command 

1205 ; 

1206 WA82F BCS BA832 

1207 ; 

1208 ;"END" command 

1209 : 



1210 


WAS 31 


CLC 




1211 


BA832 


BNE 


BA870 


1212 




LDA 


Z7A 


1213 




LDY 


Z7B 


1214 




LDX 


Z3A 


1215 




INX 




1216 




BEQ 


BA849 


1217 




STA 


Z3D 


1218 




STY 


Z3E 


1219 




LDA 


Z39 


1220 




LDY 


Z3A 


1221 




STA 


Z3B 


1222 




STY 


Z3C 


1223 


BA849 


PLA 




1224 




PLA 




1225 


JA84B 


LDA 


<TA381 


1226 




LDY 


>TA381 


1227 




BCC 


BA854 


1228 




JMP 


JA469 


1229 


BA854 


JMP 


XE386 



;get pointer to beginning of BASIC 

;-i 

;into AY 



; store AY in current DATA address 



;test Stop Key 



; preserve C flag 



; clear C flag 

;if parameters present, SYNTAX Error 
;set AY to address of current line 



;if not in direct mode, 

;save pointer for possible CONT 

;AY=current statement il 

;move current statement # 
;to previous statement # 
; remove own return address 

;set AY to BREAK message 

;if STOP command, 

; print message and restart BASIC 

;else restart BASIC 
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1231 ;"CONT" command 







1232 






A857 


D017 


1233 WA857 


BNE BA870 


A859 


A21A 


1234 




LDX $1A 


A85B 


A43E 


1235 




LDY Z3E 


A85D 


D003 


1236 




BNE BA862 


A85F 


4C37A4 


1237 
1238 




JMP JA437 


A862 


A53D 


1239 


BA852 


LDA Z3D 


A864 


857A 


1240 




STA Z7A 


A866 


847B 


1241 




STY Z7B 


A858 


A53B 


1242 




LDA Z3B 


A86A 


A43C 


1243 




LDY Z3C 


A86C 


8539 


1244 




STA Z39 


A86E 


84 3 A 


1245 




STY Z3A 


A870 


60 


1246 
1247 


BA870 


RTS 






1248 


;"RUN" command 






1249 






A871 


08 


1250 WA871 


PHP 


A872 


A900 


1251 




LDA $00 


A874 


2090FF 


1252 




JSR XFF90 


A877 


28 


1253 




PLP 


A878 


D003 


1254 




BNE BA87D 


A87A 


4C59A6 


1255 
1256 




JMP SA659 


A87D 


2060A6 


1257 


BA87D JSR SA660 


A880 


4C97A8 


1258 
1259 




JMP JA897 






1260 


; "GOSUB" command 






1261 






A883 


A903 


1252 


WA883 


LDA $03 


A885 


20FBA3 


1263 




JSR SA3FB 


A888 


A57B 


1264 




LDA Z7B 


A88A 


48 


1265 




PHA 


A88B 


A57A 


1265 




LDA Z7A 


A88D 


48 


1267 




PHA 


A88E 


A53A 


1268 




LDA Z3A 


A890 


48 


1269 




PHA 


A891 


A539 


1270 




LDA Z39 


A893 


48 


1271 




PHA 


A894 


A98D 


1272 




LDA $8D 


A896 


48 


1273 




PHA 


A897 


207900 


1274 


JA897 


JSR X0079 


A89A 


20A0A8 


1275 




JSR JA8A0 


A89D 


4CAEA7 


1276 




JMP JA7AE 



•if parameters present, SYNTAX Error 
;point to message CAN'T CONTINUE 
;get pointer to current statement in 
;if pointer-0, 
; fatal error 

;move saved character pointer 
;into current character pointer 

;move previous statement # 

;into current statement # 



;set kernal messages flag to RUN mod 

;if no parameters, 

;do CLR and start program 

;else do CLR and then 
;do GOTO 



;need 3 address on stack 
;else error OUT OF MEMORY 

;save pointer to current character 
;on the stack 



;save current statement # on stack 

;save code for GOSUB 
;get current character 
; execute command GOTO 
; execute next statement 
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1278 ; "GOTO" conmand 

1279 ; 



A8A0 




1280 


HA8A0 


_ 


* 


A8A0 


206BA9 


1281 


JA8A0 


JSR 


SA96B 


AS A3 


2009A9 


1282 




JSR 


SA909 


A8A6 


38 


1283 




SEC 




A8A7 


a539 


1284 




LDA 


Z39 


A8A9 


E514 


1285 




SBC 


Z14 


A8AB 


A53A 


1286 




LDA 


Z3A 


A8AD 


E515 


1287 




SBC 


Z15 


A8AF 


BOOB 


1288 




BCS 


BASBC 


A8B1 


98 


1289 




TYA 




A8B2 


38 


1290 




SEC 




A8B3 


657A 


1291 




ADC 


Z7A 


A8B5 


A67B 


1292 




LDX 


Z7B 


A8B7 


9007 


1293 




BCC 


BA8C0 


A8By 


E8 


1294 




I NX 




A8BA 


B004 


1295 




BCS 


EA8C0 


A8BC 


A52B 


1296 


BASBC 


LDA 


Z2B 


a8be 


&6ZC 


1297 




LDX 


Z2C 


A8C0 


2017A6 


1298 


BAB CO 


JSR 


BA617 


A8C3 


901E 


1299 




BCC 


BA8E3 


A8C5 


A55F 


1300 




LDA 


Z5F 


A8C7 


E901 


1301 




SBC 


$01 


A8C9 


857A 


1302 




STA 


Z7A 


AfaCB 


A560 


1303 




LDA 


Z60 


A8CD 


E900 


1304 




SBC 


$00 


AfaCF 


857B 


1305 




STA 


Z7B 


A8D1 


60 


1306 
1307 


BA8D1 


RTS 








1308 


; "llETURN" 


comcian 






1309 








A8n2 


DOFD 


1310 


WA8D2 


BNE 


BA8D1 


A£iD4 


A9FF 


1311 




LDA SFF 


A8D6 


8 54 A 


1312 




STA 


Z4A 


A8D8 


208AA3 


1313 




JSR 


SA38A 


A8DB 


9A 


1314 




TXS 




A8LC 


C98D 


1315 




CMP 


$8D 


A8DE 


FOOB 


1316 




BEQ 


BA8EB 


A8E0 


A20C 


1317 




LDX 


$0C 


A8E2 


2C 


1318 




.BY 


$2C 



A8E3 A211 1319 BA8E3 LDX $11 
A8E5 4C37A4 1320 JllP JA437 

1321 ; 

A8Ed 4C08AF 1322 BA8E8 JHP JAF08 

1323 ; 

A8EB 68 1324 BA8EB PLA 

A8EC 68 1325 PLA 
A8ED 8539 1326 STA Z39 

A&EF 68 1327 PLA 
A8F0 853A 1328 STA Z3A 

A8F2 68 1329 PLA 
A8F3 857A 1330 STA Z7A 

A8F5 68 1331 PLA 
A8F6 857B 1332 STA Z7B 



; gather decimal number into Z14/Z15 
;get offset to end of line in Y 

; fetch current statement number 

; if forward jump, 

;let current character pointer 

; point to next statement 

;also start search there 



;else start at beginning of BASIC 

; search for statement starting at AX 
;if not found, UNDEF'D STATEMENT 
;move pointer to statement found 

;-i 

;into current character pointer 



; if parameters present, SYNTAX Error 
;get FOR block 

; remove everything above current block 
;and the block found must be a GOSUB 

;else point to RETURN WITHOUT GOSUB 
; skip next instruction 
; point to UNDEF'D STATEffiNT message 
;go print error message 

; print SYNTAX Error message 

; remove GOSUB block from stack 

; remove statement number 



; restore current character pointer 
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1334 


;"DATA" command 










1335 












A8F8 




1336 


WA8F8 




* 






A8F8 


2006 A9 


1337 


JA8F8 


JSR 


SA906 


;get offset to next ":" 




A8FB 


93 


1338 


BA8FB 


TYA 








A8FC 


18 


1339 




CLC 






pointer 


A8FD 


657A 


1340 




ADC 


Z7A 


;add offset to current character 


A8FF 


857A 


1341 




STA 


Z7A 


;( skips statement) 




A901 


9002 


1342 




BCC 


BA905 






A903 


E67B 


1343 




INC 


Z7B 






A905 


60 


1344 
1345 


BA905 


RTS 












1346 


;get end of statement (":" SA906) 








1347 


;get end of line (00. SA909) 








1348 












A906 


A23A 


1349 


SA906 


LDX 




J set statement separator 




A908 


2C 


1350 




.BY 


$2C 


J skip next instruction 




A909 


A200 


1351 


SA909 


LDX 


$00 


;set line separator 




A90B 


8607 


1352 




STX 


Z07 


;save separator character 




A90D 


AOOO 


1353 




LDY 


$00 






A90F 


8403 


1354 




STY 


Z08 


J save alternate separator 




A911 


A508 


1355 


BA91 1 


LDA 


Z08 






A913 


A607 


1356 




LDX 


Z07 






A915 


8507 


1357 




STA 


Z07 


; swap separators 




A917 


8608 


1358 




STX 


Z08 






A919 


B17A 


1359 


BA919 


LDA 


(Z7A),Y 


;get next character 




A91B 


F0E3 


1360 




BEQ 


BA905 


;if end of line 




A91D 


C508 


1361 




CMP 


Z08 


;or separator reached 




A91F 


F0E4 


1362 




BEQ 


BA905 


;exlt with Y=length scanned 




A921 


C8 


1363 




INY 




;else advance pointer 




A922 


C922 


1364 




CMP 




;if character = quote 




A924 


D0F3 


1365 




BNE 


BA919 


;swap separators and continue 




A926 


F0E9 


1366 
1367 




BEQ 


BA911 


; continue 








1368 


;"IF" 


command 










1369 












A928 


209EAD 


1370 


WA928 


JSR 


SAD9E 


; evaluate expression 




A92B 


207900 


1371 




JSR 


X0079 


;get current character 




A92E 


C989 


1372 




CMP $89 


;if not code for GOTO 




A930 


F005 


1373 




BEQ 


BA937 






A932 


A9A7 


1374 




LDA $A7 


;or code for THEN 




A934 


20FFAE 


1375 




JSR 


SAEFF 


;then SYNTAX Error 




A937 


A561 


1376 


BA937 


LDA 


Z61 


;if result of condition true, do 


action 


A939 


D005 


1377 




BNE 


BA940 


;else skip by dropping through to REM 
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1379 


; "REM" command 






1380 


f 






/uuyAy 


1381 


WA93B JSR SA909 


A93E 


FOBB 


1382 
1383 


! 


BEQ BA8FB 






1384 


;THEN 


part of IF 






1385 






A940 




1386 


BA940 


JSR X0079 


A943 


BOOS 


1387 




BCS BA948 


A945 


4CA0A8 


1388 


BA948' 


JMP JA8A0 


A948 


4CEDA7 


1389 
1390 


JMP SA7ED 






1391 


;"Otl" 


command 






1392 






A94B 


209EB/ 


1393 


WA94B 


JSR SB79E 


A94E 


48 


1394 




PHA 


A94F 


C98D 


1395 




CMP $8D 


A951 


F004 


1396 




BEQ BA957 


A953 


C989 


1397 


BA953 CMP $89 


A955 


D091 


1398 




BNE BA8E8 


A957 


C665 


1399 


BA957 


DEC Z65 


A959 


iX)04 


1400 




BNE BA95F 


A95B 


68 


1401 




FLA 


A95C 


4CEFA7 


1402 




JMP JA7EF 


A95F 


207300 


1403 


BA95F 


JSR X0073 


A962 


206BA9 


1404 




JSR SA96B 


A965 


C92C 


1405 




CMP ', 


A967 


FOEE 


1406 




BEQ BA957 


A969 


68 


1407 




PLA 


A96A 


60 


1408 


BA96A RTS 



;get offset to end of line 

;go advance current character pointer 



;get current character 
;if numeric 

;then execute command GOTO 
;else execute command in A 



;get next integer value into X 
;save current character 
;if not GOSUB 

;or GOTO 

;then SYNTAX Error 
; decrement index 
;if zero 

; restore GOTO or GOSUB code in A 

;and execute command in A 

;else get next character 

igather decimal number into Z14/Z15 

;if ends with a comma 

;then repeat 

;else must be end of statement 
;otherwise force SYNTAX Error 
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1410 ; gather decimal number into Z14/Z15 

1411 ; 

1412 ;gathered from current statement 

1413 ;expects A, C and Z to reflect current character 

1414 ; returns with A, C and Z reflecting new 

1415 ; current character (first character after number) 



1416 ; 



A95B 


A200 


1417 


SA96B 


LDX 


$00 


;set answer area to zero 


A%D 


8614 


1418 




STX 


Z14 




A96F 


8615 


1419 




SIX 


Z15 




A971 


B0F7 


1420 


JA971 


BCS 


BA96A 


;stop at first non-decimal character 


A973 


E92F 


1421 




SBC 


$2F 


;convert decimal to binary 


A975 


8507 


1422 




STA 


Z07 


;save it 


A977 


A515 


1423 




LDA 


Z15 




A979 


8522 


1424 




STA 


Z22 


;save old high order 


A97B 


C919 


1425 




CMP 


$19 


;if # gathered so far >= 5400 


A97D 


B0D4 


1426 




BCS 


BA953 


;then SYNTAX Error 


A97F 


A514 


1427 




LDA 


Z14 




A981 


OA 


1428 




ASL 


A 


;* 2 


A982 


2622 


1429 




ROL 


Z22 




A984 


OA 


1430 




ASL 


A 


;* 4 


A985 


2622 


1431 




ROL 


Z22 




A987 


6514 


1432 




ADC 


Z14 


;+ original = * 5 


A989 


8514 


1433 




STA 


Z14 




A98B 


A522 


1434 




LDA 


Z22 




A98D 


6515 


1435 




ADC 


Z15 




A98F 


8515 


1436 




STA 


Z15 




A991 


0614 


1437 




ASL 


Z14 


;* 2 = * 10 


A993 


2615 


1438 




ROL 


Z15 




A995 


A514 


1439 




LDA 


Z14 




A997 


6507 


1440 




ADC 


Z07 


;add new digit 


A999 


8514 


1441 




STA 


Z14 




A99B 


9002 


1442 




BCC 


BA99F 




A99D 


E615 


1443 




INC 


Z15 




A99F 


207300 


1444 


BA99F 


JSR 


X0073 


;get next character 


A9A2 


4C71A9 


1445 




JMP 


JA971 


;and repeat 
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L447 ;"LET" command 
1448 ; 



A9A5 




1449 


WA9A5 = * 


A9A5 


208BBO 


1450 


SA9A5 JSR SB08B 


A9a8 


8549 


1451 


STA Z49 


a9AA 844a 


1452 


STY Z4A 


A9AC 


A9B2 


1453 


LDA $B2 


a&ae 


20FFAE 


1454 


JSR SAEFF 


A9B1 


A50E 


1455 


LDA ZOE 


A9B3 


48 


1456 


PHA 


a9e4 


A50D 


1457 


LDA ZOD 


A9B6 


48 


1458 


PHA 


A9B7 


209EAfi 


1459 


JSR SAD9E 


A9BA 


68 


1460 


PLA 


A9BB 


2A 


1461 


ROL A 


A9BC 


2090AD 


1462 


JSR SAD90 


A9EF 


DO 18 


1463 


BNE BA9D9 


A9C1 


68 


1464 


PLA 


A9C2 


1012 


1465 


SA9C2 BPL BA9D6 






1466 


; 






1467 


i assign to iofege 






1468 


; 


A9C4 


201 BBC 


1469 


JSR SBCIB 


A9C7 


20BFB1 


1470 


JSR SBIBF 


A9CA 


AOOO 


1471 


LDY $00 


A9CC 


A564 


1472 


LDA Z64 


A9CE 


9149 


1473 


STA (Z49),Y 


A9D0 


C8 


1474 




A9D1 


A565 


1475 


LDA Z65 


A9D3 


9149 


1476 


STA (Z49),Y 


A9D5 


60 


1477 


RTS 






1478 








1479 


: assign to flp 






1480 




A9D6 


4CD0BB 


1481 


BA9D6 JMP JBBUO 






1482 








1483 


; assign to string 






1484 




A9D9 


6b 


1465 


BA9D9 PLA 


A9DA A44A 


1486 


SA9DA LDY Z4A 


A9DC 


COEF 


1487 


CPY $BF 


A9DL 


D04C 


1488 


BNE BAA2C 



; gather name and get ptr to variable 
; save variable pointer 

; load code for 

;must be next character 

; save integer flag of variable 

isave string flag of variable 

; evaluate expression 

; restore string flag of variable 

;also into C flag 

; check value for same type 

;branch if string to be assigned 

; restore integer flag of variable 

; branch if flp accu to be stored 



; round flp accu according to guard bit 
; convert flp accu to integer 

;get most significant byte of integer 
; store into + of variable 

;get least significant byte of integer 
; store into + 1 of variable 



;go store flp value 



; remove integer flag from stack 
; if high byte of pointer to variable 
inot same as address of dummy variable 
; then go do normal variable 
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1490 


; assign to TI$ 






1491 


; 




A9E0 


20A6B6 


1492 




JSR SB6A6 


A9E3 


C906 


1493 




CMP $06 


A9E5 


D03D 


1494 




BNE BAA24 


A9E7 


AOOO 


1495 




LDY $00 


A9E9 


8461 


1496 




STY Z61 


A9EB 


8466 


1497 




STY Z66 


A9ED 


8471 


1498 


BA9ED 


STY Z71 


A9EF 


201DAA 


1499 




JSR SAAID 


A9F2 


20E2BA 


1500 




JSR SBAE2 


A9F5 


E671 


1501 




INC Z71 


A9F7 


A471 


1502 




LDY Z71 


A9F9 


201DAA 


1503 




JSR SAAID 


A9FC 


200CBC 


1504 




JSR SBCOC 


A9FF 


AA 


1505 




TAX 


AAOO 


F005 


1506 




BEQ BAA07 


AA02 


E8 


1507 




INX 


AA03 


8A 


1508 




TXA 


AA04 


20EDBA 


1509 




JSR SBAED 


AA07 


A471 


1510 


BAA07 


LDY Z71 


AA09 


C8 


1511 




INY 


AAOA 


C006 


1512 




CPY $06 


AAOC 


DODF 


1513 




BNE BA9ED 


AAOE 


20E2BA 


1514 




JSR SBAE2 


AAll 


209BBC 


1515 




JSR SBC9B 


AA14 


A664 


1516 




LDX Z64 


AA16 


A463 


1517 




LDY Z63 


AA18 


A565 


1518 




LDA Z65 


AAIA 


4CDBFF 


1519 




JMP XFFDB 






1520 










1521 


;add next digit 






1522 


> 




AAID 


B122 


1523 


SAAID LDA (Z22) 


AAIF 


208000 


1524 




JSR X0080 


AA22 


9003 


1525 




BCC BAA27 


AA24 


4C48B2 


1526 


BAA24 


JMP JB248 






1527 






AA27 


E92F 


1528 


BAA27 


SBC $2F 


AA29 


4C7EBD 


1529 




JMP JBD7E 



;de-allocate temporary string 
; should be 5 characters long 
;else ILLEGAL QUANTITY Error 

; store in flp accu 

;set index in string 
;add next digit to flp accu 
;multiply flp accu by 10 
; increment index 

;add next digit to flp accu 

;move rounded flp accu to 2nd flp accu 

;get exponent 

;if zero, skip next multiplication 

; increment exponent 

;*2 in second flp accu 

;add 2nd flp accu to flp accu and *2 

;get index 

;repeat until 6 characters processed 

;multiply flp accu by 10 

; convert flp accu to 4 byte integer 



;set real time clock 

flp accu 

;get character from string 
; check for numeric character 

; ILLEGAL QUANTITY Error if not 

; convert decimal to binary 

;add signed integer from A to flp accu 
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1531 ; assign to normal 

1532 ; 



AA2C 


A002 


1533 


BAA2C LDY 


$02 


AA2E 


B164 


1534 


LDA 


(Z64) ,Y 




KjJJH 




CMP 


Z34 


AA32 


90L7 


1536 


BCC 


BAA4B 


AA34 


D007 


1537 


BNE 


BAA3D 


AA36 


8fe 


1538 


DEY 




AA37 


BL64 


1539 


LDA 




AA39 


C533 


1540 


CMP 


233 


AA3B 


900L 


1541 


BCC 


BAA4B 


aA3D 


A465 


1542 




iD3 


AA3F 


C42E 


1543 


CPY 


Z2E 




9008 




BCC 


BAA4B 


AA43 


DOOD 


1545 


BNE 


BAAS 2 


AA45 


A564 


1546 


LltA 


Z64 


AA47 


C52D 


1547 


CMP 


Z2D 


AA49 


BOO 7 


1543 


BOS 


BAAS 2 


AA4B 


A5b4 


1549 


BAA4B LDA 


Z64 


AA41j 


A465 


1550 


LDY 


Z6S 


AA4F 


4C68AA 


1551 


JMP 


JAA68 






1552 


; 




AA52 


AO 00 


1553 


BAA52 LDY 


$00 


AA54 


B164 


1554 


LDA 


(Z64) Y 


AA5 6 


207 5 B4 


1555 


JSR 


SB475 


AA59 


A550 


1 556 


LDA 


Z50 


AA5B 


A4 51 


1557 


LDY 


Z51 


AA5iJ 


856F 


1 RRU 
ID JO 


STA 


Z6F 


AA5F 


RA7n 
O'f/U 


1559 


STY 


Z70 


AA6 1 


Z U / Add 


1 560 


JSR 


SB67A 


i\A64 


^ Q A 1 


1561 


LDA 


<Z61 








LDY 


>Z61 






1563 










1564 


;move descriptor 






1565 






AAdo 


o550 


1566 


JAA68 STA 


Z50 


AA6A 


u451 


1567 


STY 


Z51 


AA6C 




1568 


JSR 


SB6DB 


AA6F 


AO 00 


1569 


LDY 


$00 


A A 7 1 


ni 

Oi JU 


1570 


LDA 


(Z50),Y 


AA73 


9149 


1571 


STA 


(Z49),Y 


AA75 


CS 


1572 


lire 




AA76 


B150 


1573 


LDA 


(Z50),Y 


AA78 


9149 


1574 


STA 


(Z49),Y 


AA7A 


Cb 


1575 


IKY 


AA7jJ 


B150 


1576 


LDA 


(ZSO),Y 


AA7D 


9149 


1577 


STA 


(Z49),Y 


AA7F 


60 


1578 


RTS 





string variable 



; If pointer to string 

; below allocated string area 



; then move descriptor 



; be low end of program 
; (descriptor stack) 



; then go move descriptor 



; else 

;get length of string 

; allocate area 

; store string pointer 



;move string into allocated area 
; set AY to new descriptor 

into variable 

;set pointer to descriptor from AY 

; check descriptor stack 

;n!ove descriptor 
; to variable 

; also + 1 

;and + 2 
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1580 


; "PRINT*" 


command 








1581 










AA80 


2086 AA 


1582 


WAA80 


JSR SAA86 


; execute CMD and PRINT 


AA83 


4CB5AB 


1583 
1584 




JMP 


JABB5 


; reset CMD output file # 






1585 


; "CMD" 


command 








1586 










AA86 




1587 


WAA86 




* 




AA86 


209EB7 


1588 


SAAB 6 


JSR SB79E 


;get next Integer value in X 


AA89 


F005 


1589 




BEQ 


BAA90 


;i£ more parameters 


AA8B 


A92C 


1590 




LDA 




;next parameter must be a comma 


AA8D 


20FFAE 


1591 




JSR 


SAEFF 




AA90 


08 


1592 


BAA90 


PHP 




;save flags 


AA91 


8613 


1593 




STX 


Z13 


; store new CMD file It 


AA93 


2018E1 


1594 




JSR XE118 


; select output device 


AA96 


28 


1595 




PLP 




; restore flags 


AA97 


4CA0AA 


1596 




JMP 


JAAAO 


; execute command PRINT 






1597 








;print BASIC string from Z22/Z23 


AA9A 


202 lAB 


1598 


BAA9A 


JSR 


SAB21 


AA9D 


207900 


1599 


BAA9D 


JSR X0079 


;get current character 






1600 














1601 


; "PRINT" command 








1602 










AAAO 




1603 


WAAAO 




* 




AAAO 


F035 


1604 


JAAAO 


BEQ 


SAAD7 


;if no parameters, end line on CMD file 


AAA2 


F043 


1605 


JAAA2 


BEQ 


BAAE7 


;if end of statement, return 


AAA4 


C9A3 


1606 




CMP 


$A3 


;if TAB( 


AAA6 


F050 


1607 




BEQ 


BAAF8 


;do TAB/SPC routine 


AAA8 


C9A5 


1608 




CMP 


$A6 


;if SPC( 


AAAA 


18 


1609 




CLC 






AAAB 


F04B 


1610 




BEQ 


BAAF8 


;do TAB/SPC routine 


AAAD 


C92C 


1611 




CMP 




;if comma 


AAAF 


F037 


1612 




BEQ 


BAAE8 


;go do fixed tab 


AABl 


C93B 


1613 




CMP 




;if semicolon 


AAB3 


FOSE 


1614 




BEQ 


BAB13 


; Ignore 


AAB5 


209EAD 


1615 




JSR 


SAD9E 


;evaluate expression 


AAB8 


240D 


1616 




BIT 


ZOD 


;if string 


AABA 


30DE 


1617 




BMI 


BAA9A 


; print BASIC string 


AABC 


20DDBD 


1618 




JSR 


SBDDD 


;convert flp accu to string 


AABF 


2087B4 


1619 




JSR 


SB487 


;get descriptor of string in flp accu 


AAC2 


2021AB 


1620 




JSR 


SAB21 


;print BASIC string from Z22/Z23 


AAC5 


203BAB 


1621 




JSR 


SAB3B 


; print Cursor Right on CMD output file 


AAC8 


D0D3 


1622 




BNE 


BAA9D 


; repeat 
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1624 ;end statement In buffer and on screen 

1625 ; 

1626 ;X=lndex beyond last byte in buffer 

1627 ; 



AACA 


A900 


1628 


JAACA 


LDA 


$00 


;add 00 to statement in buffer 


AACC 


yDUUUi 


1629 




STA 


X0200, 


X 


AACF 


A2FF 


1630 




LDX 


$FF 




AADl 


AOOl 


1631 




LDY 


$01 


; reset index to beginning of statement 


AAD3 


A513 


1632 




LDA 


Z13 


;lf CMD output file = default 


AAD5 


DOlO 


1633 




BNE 


BAAE7 


;then end line on CMD output file 






1634 


> 










1635 


; end line 


on CMD 


output file 






1636 








AAD7 


A90D 


1637 


SAAD7 


LDA 


$0D 


; print a Return 


AAD9 


2047AB 


1638 




JSR 


SAB47 


;on CMD output file 


AADC 


2413 


1639 




BIT 


Z13 


;if file number < 128 


AADE 


1005 


1640 




BPL 


BAAE5 


;do not add Linefeed 


AAEO 


A90A 


1641 




LDA 


$0A 


;else print a Linefeed on CMD file 


AAE2 


2047AB 


1642 




JSR 


SAB47 


AAE5 


49FF 


1643 


BAAE5 


EOR 


$FF 


; condition flags 



AAE7 60 1644 BAAE7 RTS 
1645 ; 

1645 ; routine for printing blanks and tabs 

1647 ; 

1648 ; fixed tabs at BAAE8 

1649 ;TAB( & SPC( at BAAF8 

1650 ; 

AAE8 38 1651 BAAE8 SEC 
AAE9 20F0FF 1652 JSR XFFFO 

AAEC 98 1653 TYA 
AAED 38 1654 SEC 
AAEE E90A 1655 BAAEE SBC $0A 
AAFO BOFC 1656 BCS BAAEE 

AAF2 49FF 1657 EOR $FF 

AAF4 6901 1658 ADC $01 

AAF6 D016 1659 BNE BABOE 

AAF8 08 1660 BAAF8 PHP 
AAF9 38 1661 SEC 
AAFA 20F0FF 1662 JSR XFFFO 

AAFD 8409 1663 STY Z09 

AAFF 209BB7 1664 JSR SB79B 

AB02 C929 1665 CMP ') 

AB04 D059 1666 BNE BAB5F 

AB06 28 1667 PLP 
AB07 9006 1668 BCC BABOF 

AB09 8A 1669 TXA 
ABOA E509 1670 SBC Z09 

ABOC 9005 1671 BCC BAB13 

ABOE AA 1672 BABOE TAX 

ABOF E8 1673 BABOF INX 

ABIO CA 1674 BABIO DEX 
ABll D006 1675 BNE BAB19 

AB13 207300 1676 BAB13 JSR X0073 
AB16 4CA2AA 1677 JMP JAAA2 

AB19 203BAB 1678 BAB19 JSR SAB3B 
ABIC D0F2 1679 BNE BABIO 



;read cursor position into XY 



; convert column to modulo 10 (-10 to -1) 
; complement 

;A = # blanks to insert 
;skip if zero 
;save status 

;read cursor position again 
;save column 

; evaluate expression into X 
;if not ending with ")" 
;then SYNTAX Error 
;restore status 
;if code for TAB( 
;get value in A 

; subtract current character position 
;skip if negative 



;if zero 

;get next character 
; return to PRINT 

; print Cursor Right on CMD output file 
;X times 
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1681 ; print string from AY 







1682 




;BOve string descriptor Into flp accu 


ABIE 


2087B4 


1683 


SABIE JSR SB487 






1684 


; 


f^nm 79 9 /79 1 
trOiB Li.LI 






1685 


; print BASIC string 


AB21 


20A6B6 


1686 
1687 


; 

SAB21 JSR SB6A6 


t rrnt' f avf nr^lnt"^T* Into Z22/Z23 


AB24 


AA 


1688 


TAX 


I save string length 


AB25 


AOOO 


1689 






AB27 


E6 


1690 


I NX. 


' decrecient length pending 


AB28 


CA 


1691 


nAnOC r\irv 
BAB-tO L>t*A 


AB29 


FOBC 


1692 


EEQ BAAE, 


;exit upon coupletion 


AB2b 


B122 


1693 


LDA (Z22),Y 


J get nexc cncicetuucL 


AB2D 


2047AB 


1694 




' print it on CKD output file 


AL30 


C8 


1695 


INY 


; advance pointer 


AB31 


C90D 


1696 


CMP $0D 




iiB33 


D0F3 


1697 


BNE BABZo 


J then QO QULiiity instiruction 


AB35 


20E5AA 


1698 


JSR BAAE5 


AB38 


4C28AB 


1699 
1700 


JMP BAB28 


; repeat 






1701 


; print a character 


on CMD output 1 1 it; 






1702 




; if CMD output file is detauJ.t 


AB3B 


A513 


1703 


SAB3B LDA Z13 


AB3D 


F003 


1704 


BEQ BAB42 


; print Cursor Right 


AB3F 


A920 


1705 


LDA ^20 


; else use space 


AB41 


2C 


1706 


.BY $2C 


;skip next instruction 


AB42 


A91D 


1707 


BAB42 LDA $1D 


;load Cursor Right 


AB44 


2C 


1708 


.BY $2C 


;skip next instruction 


AB45 


A93F 


1709 


SAB45 LDA $3F 


;load "?" 


AB47 


200CE1 


1710 


SAB47 JSR XEIOC 


; output a character 


AB4A 


29FF 


1711 


AND $FF 


;and exit with flags corresponding 


AIi4C 


60 


1712 


RTS 


; to original A 







1714 


; read 


errors 






1715 








AB4D 


A511 


1716 


JAB4D 


LDA 


Zll 


AB4F 


FOll 


1717 




BEQ 


BAB62 


AB51 


3004 


1718 




BMI 


BAB57 


AB53 


AOFF 


1719 




LDY 


$FF 


AB55 


D004 


1720 




BNE 


BAB5B 


AB57 


A53F 


1721 


BAB57 


LDA 


Z3F 


AB59 


A440 


1722 




LDY 


Z40 


AB5B 


8539 


1723 


BAB5B 


SIA 


Z39 


AB5D 


84 3 A 


1724 




STY 


Z3A 


AB5F 


4C08AF 


1725 


BAB5F 


JMP 


JAF08 


AB62 


A513 


1726 


BAB62 


LDA 


Z13 


AB64 


F005 


1727 




BEQ 


RARfiR 


AB66 


A218 


1728 




LDX 


$18 


AB68 


4C37A4 


1729 
1730 




JMP 


JA437 


AB6B 


A90C 


1731 


BAB6B 


LDA 


<TADOC 


AB6D 


AOAD 


1732 




LDY 


>TADOC 


AB5F 


201EAB 


1733 




JSR 


SABIE 


AB72 


A53D 


1734 




LDA 


Z3D 


AB74 


A43E 


1735 




LDY 


Z3E 


AB76 


857A 


1736 




STA 


Z7A 


AB78 


847B 


1737 




STY 


Z7B 


AB7A 


60 


1738 
1739 




RTS 








1740 


; "GET" 


command 






1741 








AB7B 


20A6B3 


1742 


WAB7B 


JSR 


SB3A6 


AB7E 


C923 


1743 




CMP 


'# 


AB80 


DOlO 


1744 




BNE 


BAB92 


AB82 


207300 


1745 




JSR 


X0073 


AB85 


209EB7 


1746 




JSR 


SB79E 


AB88 


A92C 


1747 




LDA 


> 


AB8A 


20FFAE 


1748 




JSR 


SAEFF 


AB8D 


8613 


1749 




STX 


Z13 


AB8F 


201EE1 


1750 




JSR 


XEllE 



AB92 A201 1751 BAB92 LDX $01 

AB94 A002 1752 LDY $02 

AB96 A900 1753 LDA $00 

AB98 8D0102 1754 STA X02001-1 

AB9B A940 1755 LDA $40 

AB9D 200FAC 1756 JSR SACOF 

ABAO A613 1757 LDX Z13 

ABA2 D013 1758 BNE BABB7 

ABA4 60 1759 RTS 



1760 ; 

1761 ;■■ INPUT*" command 

1762 ; 



ABA5 


209EB7 


1763 


WABA5 


JSR 


SB79E 


ABA8 


A92C 


1764 




LDA 




ABAA 


20FFAE 


1765 




JSR 


SAEFF 


ABAD 


8613 


1766 




STX 


Z13 


ABAF 


201EE1 


1767 




JSR 


XEllE 


ABB2 


20CEAB 


1768 




JSR 


SABCE 


ABBS 


A513 


1769 


JABB5 


LDA 


Z13 


ABB7 


20CCFF 


1770 


BABB7 


JSR 


XFFCC 


ABBA 


A200 


1771 




LDX $00 


ABBC 


8613 


1772 




STX 


Z13 


ABBE 


60 


1773 




RTS 





;sklp if INPUT 
;lf GET 

;set statement # invalid 
;for READ 

;get DATA statement # 
; store statement # 

; SYNTAX Error 

;lf INPUT and not default CMD file 

; point to FILE DATA message 
; print error 

;if INPUT and default CMD output file 
; index REDO FROM START message 
; print message 

;move pointer to current statement 
;into current character pointer 



; check for direct mode 

;if next character is # sign 

;then get next character 
;and next integer value in X 

;next character must be a comma 
;set new CMD input file 
;open device for input 
;set pointer to end of line 



;set character string terminator 

;set code for GET 

; interpret data 

;get CMD output file 

;if 

not default go reset it 



;get next integer value in X 

;next character must be a comma 

;set CMD file # 

;open device for input 

;do Input 

;get CMD file number 
; deselect all devices 

;set CMD file to default 
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ABBF 
ABCl 
ABC3 
ABC6 
ABC8 
ABCB 
ABCE 
ABDl 
ABD3 
ABD6 
ABD9 
ABDB 
ABDD 
ABEO 
ABE2 
ABE4 
ABE7 



C922 

DOOB 

20BDAE 

A93B 

20FFAE 

202 lAB 

20A6B3 

A92C 

8DFF01 

20F9AB 

A513 

FOOD 

20B7FF 

2902 

F006 

20B5AB 

4CF8A8 



1775 ; "INPUT" 

1776 ; 

1777 WABBF 
1778 
1779 
1780 
1781 
1782 



command 

CMP '" 
BNE SABCE 
JSR SAEBD 
LDA '; 
JSR SAEFF 
JSR SAB21 

1783 SABCE JSR SB3A5 

1784 LDA ', 

1785 STA XOIFF 

1786 BABD6 JSR SABF9 



LDA Z13 
BEQ BABEA 
JSR XFFB7 
AND $02 
BEQ BABEA 
JSR JABB5 
JMP JA8F8 



ABEA AD0002 
ABED DOIE 
ABEF A513 
ABFl DOE 3 
ABF3 2006A9 
ABF6 4CFBA8 



ABF9 A513 
ABFB D006 
ABFD 2045AB 
ACOO 203BAB 
AC03 4C60A5 



1787 
1788 
1789 
1790 
1791 
1792 
1793 

1794 ; 

1795 BABEA LDA X0200 



BNE BACOD 
LDA Z13 
BNE BABD6 
JSR SA906 
JMP BA8FB 



;get line Into input buffer 

;if CMD file 



AC06 
AC08 
ACOA 
ACOC 
ACOD 
ACOF 
ACll 
AC13 
AC15 
AC18 
ACIA 
ACIC 
ACIE 
AC20 
AC22 
AC24 
AC26 
AC28 
AC2A 
AC2C 
AC2F 
AC31 
AC33 



A641 
A442 
A998 
2C 

A900 

8511 

8643 

8444 

208BB0 

8549 

844A 

A57A 

A47B 

854B 

844C 

A643 

A444 

867A 

847B 

207900 

D020 

2411 

500C 



1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 

1804 SABF9 LDA Z13 

1805 BNE BAC03 

1806 JSR SAB45 

1807 JSR SAB3B 

1808 BAC03 JMP SA560 

1809 ; 

1810 ;"READ" command 

1811 ; 

1812 WAC06 LDX Z41 

1813 LDY Z42 

1814 LDA $98 

1815 .BY $2C 

1816 BACOD LDA $00 

1817 SACOF STA Zll 

1818 STX Z43 

1819 STY Z44 

1820 JAC15 JSR SB08B 



;lf next character is a quote 

;get descriptor of literal prompt string 
;if next character is not a ";" 

;then SYNTAX Error 

; print prompt string 

; place a comma before input string 

;get input line into input buffer 

;if CMD file 

;is not default 

;and ST does not show 

;a Read Error 

;reset CMD file to default 
; execute command DATA 

;else if not a null line 
; interpret data 

;lf null line and CMD file not default 

;sklp null line 

;get end of line 

;skip rest of statement 



default 



1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 



STA Z49 
STY Z4A 
LDA Z7A 
LDY Z7B 
STA Z4B 
STY Z4C 
LDX Z43 
LDY Z44 
STX Z7A 
STY Z7B 
JSR X0079 
BNE BAC51 
BIT Zll 
BVC BAC41 



; print "?" on CMD file 

;print Cursor Right on CMD file 

;go get statement into input buffer 



;get current DATA address into XY 

;set READ code 
;sklp next instruction 
;for INPUT, set A to 
; save entry mode 

;save XY into temporary read pointer 

; gather name & get pointer to variable 
; store pointer 

;get current character pointer 
;save it ■ 

;get temporary read pointer 

;use it as current character pointer 

;get current character 

;if end of statement, get next character 
;if GET mode 
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AC35 2024E1 1835 JSR XE124 

AC38 81X)O02 1836 STA X0200 

AC3E A2FF 1837 LDX $FF 

AC3D AOOl 1836 LDY $01 

AC3F DOOC 1839 BNE BAC4U 

AC41 3075 1840 EAC41 BMI BACBC 
AC43 A513 1841 LDA Z13 

AC45 D003 1842 SHE BAC4A 

AC47 2045AB 1843 JSR SAB45 

AC4A 20F9AB 1844 BaC4A JSR SABF9 



AC4D 86 7A 


1845 


BAC4D STX Z7A 


AC4F 847B 


1846 


STY Z7B 


AC51 207300 l(i47 


BiC51 JSR X0073 


AC54 240U 


1848 


BIT ZOD 


AC56 1031 


1849 


BPL BAC89 


AC55 2411 


1850 


BIT Zll 


AC5A 5009 


1851 


BVC BAC65 


AC5C E8 


1852 


INX 


AC5D 86 7A 


1853 


STX Z7A 


AC5F A900 


1854 


LDA $00 


AC61 8507 


1855 


STA Z07 


AC63 FOOC 


1856 


BEQ BAC71 


AC65 8507 


1857 


BAC65 STA Z07 


AC67 C922 


1858 


CliP "■ 


AC69 F007 


1859 


BEQ BAC72 


AC6B A93A 


1860 


LDA ': 


AC6D 8507 


1861 


STA Z07 


AC6F A92C 


1862 


LDA 


AC71 18 


1863 


BAC71 CLC 


AC72 8508 


1864 


BAC72 STA Z08 


AC74 A57A 


1865 


LDA Z7A 


AC76 A47B 


1S66 


LDY Z7B 


AC78 6900 


1867 


ADC $00 


AC7A 9001 


1868 


BCC BAC7D 


AC7C C8 


1869 


INY 


AC7D 208DB4 


1870 


BAC7D JSR SB48D 


AC80 20E2B7 


1371 


JSR SB7E2 


AC83 2011AA9 


lo72 


JSR SA9DA 


AC86 4C91AC 


1873 


JMP JAC91 




1874 


; 


ACS 9 20F3BC 


1875 


BAC89 JSR SBCF3 


AC8C A50E 


1876 


LDA ZOE 


AC8E 20C2A9 


1877 


JSR SA9C2 


AC91 207900 


1878 


JAC91 JSR X0079 


AC94 F007 


1879 


BEQ BAC9D 


AC96 C92C 


1880 


CMP 


AC98 F003 


1881 


BEQ BAC9D 


AC9A 4C4DAB 


1882 


JMP JAB4D 




1883 




AC9D A57A 


1884 : 


BAC9D LDA Z7A 


AC9F A47B 


1385 


LDY Z7B 


ACAl 8543 


1886 


STA Z43 


ACA3 8444 


1887 


STY Z44 


ACA5 A54B 


1888 


LDA Z4B 


ACA7 A44C 


1889 


LDY Z4C 


ACA9 857a 


1890 


STA Z7A 


ACAB 847B 


1891 


STY Z7B 


ACAD 207900 


1892 


JSR X0079 


ACBO F02D 


1893 


BEQ BACDF 


ACB2 20FDAE 


1894 


JSR SAEFD 



;get a character from CMD file 
; save character in input buffer 

;move buffer address - 1 into XY 

;lf READ go get next DATA element 
;for INPUT if CMD file = default 

; print "?" on am file 

;get ne« input line 

; store pointer into current pointer 

;get next pointer 

; if not a string variable 

; and GET mode 



; skip character 

; set null as terminator 

; if string variable and READ or INPUT 
; store character as terminator 
; if not quote character 
; store ":" as terminator 



;and "," as an alternative terminator 



; skip initial quote if any 



;get descriptor of string into flp accu 
;move text pointer into current pointer 
; assign to string 



; convert string into flp accu 
;load Integer flag 
; assign to integer or real 
;get current character 
;must be end of. statement 
;or a comma 

;else read error 

;move current character pointer 

; into temporary read pointer 

;move saved current character pointer 

; to current character pointer 

;get current character 
;must be end of statement 
; or a comua 
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ACB5 4C15AC 



ACB8 

ACBB 

ACBC 

ACBD 

ACBF 

ACCl 

ACC2 

ACC4 

ACC6 

ACC7 

ACC9 

ACCB 

ACCC 

ACCE 

ACCF 

ACDl 

ACD4 

ACD7 

ACD8 

ACDA 

ACDC 



2006A9 

C8 

AA 

D012 

A20D 

C8 

B17A 
F06C 
C8 

B17A 
853F 
C8 

B17A 
C8 

8540 

20FBA8 

207900 

AA 

E083 

DODC 

4C51AC 



1895 JMP 

1896 ; 

1897 BACB8 JSR 



1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 



INY 
TAX 
BNE 
LDX 
INY 
LDA 
BEQ 
INY 
LDA 
STA 
INY 
LDA 
INY 
STA 



JAC15 ;lf so repeat read 

SA906 ;lf end of line during READ, get Index 

;to end of statement and bump It 
;move last character 

BACDl ;lf zero, 

$0D ; point to OUT OF DATA message 

(Z7A),Y ;if high of ptr to next statement zero 

BAD32 ; fatal error 

(Z7A),Y ;move low byte of next statement # 

Z3F ;lnto DATA statement if 



(Z7A),Y ;high byte also 



ACDF A543 
ACEl A444 
ACE3 A611 
ACES 1003 
ACE7 4C27A8 

ACEA AOOO 
ACEC B143 
ACEE FOOB 
ACFO A513 
ACF2 D007 
ACF4 A9FC 
ACF6 AOAC 
ACF8 4C1EAB 

ACFB 60 



ACFC 3F4558 
ADOC 3F5245 
ADIC ODOO 



1912 BACDl JSR 

1913 JSR 

1914 TAX 

1915 CPX 

1916 BNE 

1917 JMP 

1918 ; 

1919 BACDF LDA 

1920 LDY 

1921 LDX 

1922 BPL 

1923 JMP 

1924 ; 

1925 BACEA LDY 
1925 LDA 

1927 BEQ 

1928 LDA 

1929 BNE 

1930 LDA 

1931 LDY 

1932 JMP 

1933 ; 

1934 BACFB RTS 

1935 ; 

1936 ;messages 

1937 ; 

1938 TACFC .BY 

1939 TADOC .BY 

1940 .BY 



Z40 

BA8FB 

X0079 

$83 

BACB8 

BAC51 

Z43 

Z44 

ZU 

oACEA 

BA827 

$00 

{Z43),Y 

BACFB 

Z13 

BACFB 

<TACFC 

>TACFC 

SAB IE 



;add offset to current character pointer 
;get current character 

;if not code for DATA 
;go skip statement 
;set READ pointer 

;at end of READ statement 
;get temporary read pointer 
;if GET or READ mode 

;go set READ pointer 

;if INPUT 

;must be end of line 
;else, if CMD file - default 
;set AY to message EXRTA IGNORED 
; print message 



used during READ 

$3F,'E,'X,-T,'R,'A,' ,'I,'G.'N,-0,'R,'E,'D,$0D,$00 
$3F,-R,'E,-D,'0,' ,'F,'R,'0,-M,- ,'S,-T.'A,-R,'T 
$0D,$0O 
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ADIE 
Ali20 
AD22 
AI)24 
AI>27 
AD29 
AD2B 
/J)2E 
AD30 
AD32 



D004 
AOOO 
F003 
208BB0 
8549 
844A 
208AA3 
F005 
A20A 
4C37A4 



AU35 
AI/35 
AD37 
AD38 
AD3A 
AD3B 
AD3D 
AB3F 
AD40 
AD42 
AIj45 
AL46 
AD49 
AD4b 
AD4D 
AD4F 
AD52 
ADS 5 
AD57 
AD5A 
AD5B 
AD5C 
AD5F 
AI)61 
^^64 
AD66 
AD69 
AD6B 
A1j6E 
AD70 
AD73 
AD75 



9A 
8A 
18 

6904 
48 

6906 
8524 
68 

AUOl 
20A2BB 
BA 

BD0901 
8566 
A549 
a44a 
2067B8 
20D0BB 
AOOl 
205CBC 
BA 
38 

FD0901 
F017 
BDOFOl 
8539 
BElOOl 
853A 
BD1201 
857A 
BDllOl 
857B 
4 CAE A 7 



AD78 
AD79 
AD7B 
AD7C 
AD7L 
AD80 
AD82 
ADS 4 
aD87 



8A 
6911 
AA 
9A 

207900 

C92C 

DOFl 

207300 

2024AD 



1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1S88 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 



; "NEXT " coDunand 

WAD IE BNE SAD24 
LDY $00 
BEQ BAD27 

SAD24 JSR SB08B 

BAD27 SIA Z49 
STY Z4A 
JSR SA38A 
BEQ BAD35 
LDX $0A 

BAD32 JMP JA437 



BAD35 IXS 
TXA 
CLC 
ADC 
PllA 
ADC 
STA 
PLA 
LDY 
JSR 
TSX 
LDA 
STA 
LDA 
LDY 
JSR 
JSR 
LDY 
JSR 
TSX 
SEC 
SBC 
BEQ 
LDA 
STA 
LDA 
STA 
LDA 
STA 
LDA 
STA 
BAD75 JMP 



$04 

$06 
Z24 

$01 
SBBA2 

X0100+9,X 

Z66 

Z49 

Z4a 

SB867 

JBBDO 

$01 

SBC5D 



XO 100+9 X 
BAD78 
XO 100+15 X 
Z39 ; 
XO 100+16, X 
Z3A 

XO 100+18, X 
Z7A ; 
X010O+17,X 
Z7B 
JA7AE 



; If no parameters 

;set index pointer to variable 

;else gather name & get ptr to variable 
; save pointer 

;get corresponding FOR block 

;if not found, 

; error NEXT WITHOUT FOR 

; if found remove everything on top 



;get stack index of STEP value (+3) 



;save stack index of TO value (+9) 
.high order byte of stack pointer 
; restore flp accu 
;get top index 

;get sign of STEP value (+ 8) 
; restore sign byte of flp accu 

;AY points to FOE variable 

;add flp accu to # at AY 

; store flp accu into FOR variable 

; compare flp accu to upper limit 
;get top index 

;if different from sign of STEP 



restore statement If to start of loop 



restore character ptr to start of loop 



BAD 7 8 TXA 

ADC $11 
TAX 
TXS 

JSR X0O79 
CMP ', 
BME BAD75 
JSR X0073 
JSR SAD24 



;go execute next statement 



; add 17 to stack pointer 
; to remove FOR block 

;get current character 

; if a comma then execute next statement 

; else get next character 

; and go repeat NEXT statement 
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1998 ;get next non-string value 

1999 ; 

AD8A 209EAD 2000 SAD8A JSR SAD9E 

2001 ; 

2002 SAD8D CLC 
20C3 .BY $24 

2004 ; 

2005 ; check value to be string 

2006 ; 

2007 SAD8F SEC ;set string wanted 

2008 ; 

2009 ; check value accoring to C flag 



AD8D 18 
AD8E 24 



AD8F 38 



;get next value 

;set string not wanted 
;skip next instruction 







2010 










AD90 


240D 


2011 


SAD90 


BIT 


ZOD 


;test string flag 


AD92 


3003 


2012 




BMI 


BAD97 


;if not string 


AD94 


B003 


2013 




BCS 


BAD99 


;and string wanted, error 


AD96 


60 


2014 
2015 


BAD96 


RTS 




;else return 


AD97 


BOFD 


2016 


BAD97 


BCS 


BAD96 


;if string and string wanted, retu 


AD99 


A216 


2017 


BAD99 LDX $16 


;if string and string not wanted. 


AD9B 


4C37A4 


2018 
2019 




JMP 


JA437 


;TYPE MISMATCH and print error 






2020 


; evaluate 


expresj 


sion 






2021 










AD9E 


A67A 


2022 


SAD9E 


LDX 


Z7A 


; decrement character pointer 


ADAO 


D002 


2023 




BNE 


BADA4 




ADA2 


C67B 


2024 




DEC 


Z7B 




ADA4 


C67A 


2025 


BADA4 


DEC 


Z7A 




ADA6 


A200 


2026 




LDX 


$00 


; initial priority 


ADAS 


24 


2027 




.BY 


$24 


;skip next Instruction 


ADA9 


48 


2028 


JADA9 


PHA 




; save <=> code 


ADAA 


8A 


2029 




TXA 






ADAS 


48 


2030 




PHA 




;save priority 


ADAC 


A901 


2031 




LDA 


$01 


;one slot on stack wanted 


ADAE 


20FBA3 


2032 




JSR 


SA3FB 


;else error OUT OF MEMORY Error 


ADBl 


2083AE 


2033 




JSR 


SAE83 


;get value of next operand in flp 


ADB4 


A900 


2034 




LDA 


$00 




ADB6 


854D 


2035 




STA 


Z4D 


; initial <=> code for next diadic 


ADB8 


207900 


2036 


JADB8 


JSR 


X0079 


;get current character 


ADBB 


38 


2037 


JADBB 


SEC 






ADBC 


E9B1 


2038 




SBC 


$B1 


; subtract code for > 


ADBE 


9017 


2039 




BCC 


BADD7 


; branch if lower than > 


ADCO 


C903 


2040 




CMP $03 




ADC 2 


B013 


2041 




BCS 


BADD7 


;or if higher than < 


ADC4 


C901 


2042 




CMP 


$01 




ADC6 


2A 


2043 




ROL 


A 


; compute bits for <=> 


ADC7 


4901 


2044 




EOR $01 


;bit 2 for <, 1 for = and for > 


ADC9 


454D 


2045 




EOR 


Z4D 


;add to existing <=> code 


ADCB 


C54D 


2046 




CMP 


Z4D 


;if bit added for the second time 


ADCD 


9061 


2047 




BCC 


BAE30 


;then SYNTAX Error 


ADCF 


854D 


2048 




STA 


Z4D 




ADDl 


207300 


2049 




JSR X0073 


;get next character 


ADD4 


4CBBAD 


2050 
2051 




JMP 


JADBB 


;and repeat 


ADD7 


A64D 


2052 


BADD7 


LDX 


Z4D 




ADD9 


D02C 


2053 




BNE 


BAE07 


;if no <=> code 


ADDB 


B07B 


2054 




BCS 


BAE58 


;then end at non-diadic character 


ADDD 


6907 


2055 




ADC $07 


; diadic index 0-6 


ADDF 


9077 


2056 




BCC 


BAE58 




ADEl 


550D 


2057 




ADC 


ZOD 


;add string flag + carry 
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ADE3 


DO 03 


2058 




■RNF RADFfi 


ADE5 


4C3DB6 


, 2059 




IMP TUA^n 






2060 


> 




ADE8 


69FF 


2061 






ADEA 


8522 


2062 




CTA 70 
oLA tt^e. 


ADEC 


OA 


2063 




ASL A 


ADED 


6522 


2064 




kx\e* foo 


ABEF 


AS 


2065 




TAY 


ADFO 


68 


2066 


BADFO 


PLA 


ADFl 


D980A0 


2067 




PMP T4 nfln V 

^*njr XAUOU J I 


ADF4 


B067 


2068 




Rr<! RAT? "in 


ADF6 


208DAD 


2069 




JDK oAUOi/ 


ADF9 


48 


2070 


BADF9 


PlIA 


AD FA 


2020AE 


2071 


JADFA 


Jon. oACiZU 


ADFD 


68 


2072 




PLA 


ADFE 


^44B 






LDY Z4B 


AEOO 


1017 


2074 




DrL BAEiy 


AE02 


AA 


2075 




TAX 


AE03 


F056 


2076 






AE05 


D05F 


2077 




BHtr TtACAA 
ittXEi 1>AC<D0 


AE07 


460D 


2078 


BAE07 


T 7nn 

LiOK £i\JU 


AE09 


8A 


2079 




TXA 


AEOA 


2A 


2080 




ROL A 


AEOB 


A67A 


2081 




T T\ Y 77a 


AEOD 


D002 


2082 






AEOF 


C67B 


2083 




rip c 7 7 n 

UilU lit o 


AEll 


C67A 


2084 


BAEl 1 




AE13 


AOIB 


2085 




T DY <i 1 R 


AE15 


854D 


2086 




STA Z4D 


AE17 


D0D7 


2087 




BNE BADFO 


AE19 




2088 


BAE19 


CMP TAOSO.Y 


AEIC 


B048 


2089 




BCS BAE66 


AEIE 


90D9 


2090 




BCC BADF9 






2091 


> 








2092 


; recursive entry f 






2093 






AE20 


B982A0 


2094 


SAE20 


LDA TA080+2, 


AE23 


48 


2095 




PHA 


AE24 


B981A0 


2096 




LDA TA080+I,- 


AE27 


48 


2097 




PHA 


AE28 


2033AE 


2098 




JSR SAE33 



AE2B A54D 2099 LDA Z4D 

AE2D 4CA9AD 2100 JMP JADA9 

2101 ; 

AE30 4C08AF 2102 BAE30 JMP JAF08 

2103 ; 

2104 ;save rounded value 

2105 ; 

AE33 A566 2106 SAE33 LDA Z66 
AE35 BE80A0 2107 LDX TA080,Y 

AE38 A8 2108 SAE38 TAY 
AE39 68 2109 PLA 
AE3A 8522 2110 STA Z22 

AE3C E622 2111 INC Z22 

AE3E 68 2112 PLA 
AE3F 8523 2113 STA Z23 

AE41 98 2114 TYA 
AE42 48 2115 PHA 
AE43 201BBC 2116 JAE43 JSR SBCIB 
AE46 A565 2117 LDA Z65 



;lf still zero 

; apply dladlc operator "+" on strings 
;make Index 0-6 again 



:* 3 

;restore priority of stacked diadic 

; compare to priority of current diadic 

;if stacked higher, apply operator 

;TYPE MISMATCH If string operand 

;save priority again 

; recursive call to evaluate expression 

; res tore priority again 

;restore index of current diadic 

;if at end 

;and priority = 

;stop 

;else apply 
;get string flag 

;add to <=> code 

;decrement character pointer 



;get index (3*9) 

;save <=> code 

;and go check priorities 

;if true diadic, compare priorities 

;lf stacked priority higher, apply It 

;else repeat 

evaluation of expressions 
;save pointer to routine for diadic 



;save rounded value of left operand 

;get <=> code 

;and restart evaluation 

; print SYNTAX Error 

of left operand 

;get sign of flp accu 
;get priority of dladlc 



;save return address In Z22/Z23 



;save sign of flp accu 

; round flp accu 

;save flp accu on stack 
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AE48 48 
AE49 A564 
AE4B 48 
AE4C A563 
AE4E 48 
AE4F A562 
AE51 48 
AE52 A561 
AE54 48 
AE55 6C2200 



AE58 

AE5A 

AE5B 

AE5D 

AE5F 

AE61 

AE64 

AE56 

AE67 

AE68 

AE6A 

AE6B 

AE6D 

AE6E 

AE70 

AE71 

AE73 

AE74 

AE76 

AE77 

AE79 

AE7A 

AE7C 

AE7E 

AE80 

AE82 



AOFF 
68 

F023 

C964 

F003 

208DAD 

844B 

68 

4A 

8512 

68 

8569 
68 

856A 
68 

856B 
68 

856C 
68 

856D 
68 

856E 
4566 
856F 
A561 
60 



2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2125 
2127 
2128 
2129 
2130 
2131 BAE58 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 

2155 BAE80 
2156 



PHA 

LDA Z64 
PHA 

LDA Z63 
PHA 

LDA Z62 
PHA 

LDA Z61 
PHA 

JMP ,(Z22) 



; return to caller 



; apply dladic operator 



BAE5B 
BAE5D 



BAE64 
BAE66 



LDY $FF 
PLA 

BEQ BAE80 
CMP $64 
BEQ BAE64 
JSR SAD8D 
STY Z4B 
PLA 
LSR A 
STA Z12 
PLA 

STA Z69 
PLA 

STA Z6A 
PLA 

STA Z6B 
PLA 

STA Z6C 
PLA 

STA Z6D 
PLA 

STA Z6E 
EOR Z66 
STA Z6F 
LDA Z61 
RTS 



;at expression end, set negative Index 
; restore dladic priority from stack 
;if zero, stop 
;if not priority of <-> 

;then TYPE MISMATCH if string 
;save index of current dladic 
; remove string flag 

;save <=> code for <-> routine 
; restore left operand 
;to second flp accu 



; Exclusive OR of both signs 

; return with A = exponent of result 
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AE83 6C0A03 



AE86 A900 
AE88 850D 
AE8A 207300 
AE8D B003 
AE8F 4CF3BC 

AE92 2013B1 
AE95 9003 
AE97 4C28AF 

AE9A C9FF 
AE9C DOOF 
AE9E A9A8 
AEAO AOAE 
AEA2 20A2BB 
AEA5 4C7300 



AEA8 82490F 



AEAD 
AEAF 
AEBl 
AEB3 
AEB5 
AEB7 
AEB9 
AEBB 
AEBD 
AEBF 
AECl 
AEC3 
AEC5 
AEC6 
AEC9 



C92E 
FODE 
C9AB 
F058 
C9AA 
FODl 
C922 
DOOF 
A57A 
A47B 
6900 
9001 
C8 

2087B4 
4CE2B7 



AECC C9A8 
AECE D013 
AEDO AO 18 
AED2 D03B 



2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 



SAE83 JMP (X030A) ;get arithmetic element (normally AE86) 
> 

;8et arithmetic element into flp accu 



LDA $00 
STA ZOD 

BAE8A JSR X0O73 
BCS BAE92 

BAE8F JMP SBCF3 

BAE92 JSR SB113 
BCC BAE9A 
JMP JAF28 

BAE9A CMP $FF 

BNE BAEAD 
LDA <TAEA8 
LDY >TAEA8 
JSR SBBA2 
JMP X0073 



;set string flag to not string 

;get next character 
;lf numeric, 
;gather number 

; check for alphabetic character 

;if so, get value for variable 

;if code for PI 

;let AY point to value for PI 

;load value into flp accu 
;get next charcter 



flp value for PI 
TAEA8 .BY $82,$49,$0F.$DA,$A1 



BAEAD CMP '. 

BEQ BAE8F 
CMP $AB 
BEQ BAFOD 
CMP $AA 
BEQ BAE8A 
CMP "■ 
BNE BAECC 
SAEBD LDA Z7A 
LDY Z7B 
ADC $00 
BCC BAEC6 
INY 

BAEC6 JSR SB487 
JMP SB7E2 



BAECC CMP $A8 

BNE BAEE3 
LDY $18 
BNE BAFOF 



;if decimal point 

; gather number 

;if minus sign 

;do recursive get value 

;if plus 

; ignore 

;lf quote 

;get pointer to first char of string 
;into Y 



;get ptr to desc of constant string 
;set current ptr after string 

;if NOT 

;set index for NOT 

;do recursive get value 
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2204 
2205 



: monadic "NOT" command 



AED4 20BFB1 2206 WAED4 JSR SBIBF 



AED7 A565 
AED9 49FF 
AEDB A8 
AEDC A564 
AEDE 49FF 
AEEO 4C91B3 2212 
2213 



2207 
2208 
2209 
2210 
2211 



LDA Z65 
EOR $FF 
TAY 

LDA Z64 
EOR $FF 
JMP JB391 



; convert flp to integer 
;get complement of low byte into A 
;get complement of high byte in A 
; convert Integer to flp 



continuation of GET operand 
;if FH 



2214 
2215 

AEE3 C9A5 2216 BAEE3 CMP $A5 
AEE5 D003 2217 BNE BAEEA 

AEE7 4CF4B3 2218 JMP JB3F4 

2219 ; 

AEEA C9B4 2220 BAEEA CMP $B4 
AEEC 9003 2221 BCC BAEFl 

AEEE 4CA7AF 2222 JMP JAFA7 

2223 ; 

AEFl 20FAAE 2224 BAEFl JSR SAEFA 
AEF4 209EAD 2225 JSR SAD9E 

2226 ; 

2227 ; check and skip characters 



; expand function 
;lf code for SGN or higher 
;go apply function 



; SYNTAX Error if no 
;evaluate expression 



'(" present 



AEF7 


A929 


2229 


SAEF7 


LDA ') 


; check for ")" 


AEF9 




2230 




.BY $2C 


;skip next instruction 


AEFA 


A928 


2231 


SAEFA 


LDA '( 


; check for "(" 


AEFC 


2C 


2232 




.BY $2C 


;skip next instruction 


AEFD 


A92C 


2233 


SAEFD 


LDA ', 


; check for " ," 


AEFF 


AOOO 


2234 


SAEFF 


LDY $00 


; check for code in A 


AFOl 


D17A 


2235 




CMP (Z7A),Y 


;if current character < > to parameter 


AF03 


D003 


2236 




BNE JAF08 


;then SYNTAX Error 


AF05 


4C7300 


2237 
2238 




JMP X0073 


;else get next character and return 


AF08 


A20B 


2239 


JAF08 


LDX $0B 


; point to SYNTAX Error message 


AFOA 


4C37A4 


2240 
2241 




JMP JA437 


; print message 






2242 


; recursive get value 






2243 








AFOD 


A015 


2244 


BAFOD 


LDY $15 


;set index for "-" 


AFOF 


68 


2245 


BAFOF 


PLA 


; remove own return address 


AFIO 


68 


2246 




FLA 




AFll 


4CFAAD 


2247 
2248 




JMP JADFA 


;do pseudo diadic 






2249 


; check variable pointer range 






2250 








AF14 


38 


2251 


SAF14 


SEC 




AF15 


A564 


2252 




LDA Z64 




AF17 


E900 


2253 




SBC $00 




AF19 


A565 


2254 




LDA Z65 




AFIB 


E9A0 


2255 




SBC $A0 


;exit with C clear if pointer < $A000 


AFID 


9008 


2256 




BCC BAF27 


AFIF 


A9A2 


2257 




LDA $A2 




AF21 


E564 


2258 




SBC Z64 




AF23 


A9E3 


2259 




LDA $E3 




AF25 


E565 


2260 




SBC Z65 


; clear C if $E342 < pointer 


AF27 


60 


2261 


BAF27 


RTS 
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;get value of variable 



2263 
2264 

AF28 208BB0 2265 JAF28 JSR SB08B 



AF2B 8564 


2266 


STA Z64 


AF2D 8465 


2267 


STY Z65 


AF2F A645 


2268 


LDX Z45 


AF31 A446 


2269 


LDY Z46 


AF33 A50D 


2270 


LDA ZOD 


AF35 F026 


2271 


BEQ BAF5D 


AF37 A900 


2272 


LDA $00 


AF39 8570 


2273 


STA Z70 


AF3B 2014AF 2274 


JSR SAF14 


AF3E 90 IC 


2275 


BCC BAF5C 


AF40 E054 


2276 


CPX 'T 


AF42 D018 


2277 


BNE BAF5C 


AF44 C0C9 


2278 


CPY $C9 


AF46 D014 


2279 


BNE BAF5C 


AF48 2084AF 


2280 


JSR SAF84 


AF4B 845E 


2281 


STY Z5E 


AF4D 88 


2282 


DEY 


AF4E 8471 


2283 


STY Z71 


AF50 A006 


2284 


LDY $06 


AF52 84 5D 


2285 


STY Z5D 


AF54 A024 


2286 


LDY $24 


AF56 2068BE 


2287 


JSR SBE68 


AF59 4C6FB4 


2288 


JMP JB46F 




2289 ; 




AF5C 60 


2290 BAF5C 


RTS 




2291 ; 




AF5D 240E 


2292 BAF5D 


BIT ZOE 


AF5F lOOD 


2293 


BPL BAF6E 


AF61 AOOO 


2294 


LDY $00 


AF63 B164 


2295 


LDA (Z64),Y 


AF65 AA 


2296 


TAX 


AF66 C8 


2297 


INY 


AF67 B164 


2298 


LDA (Z64),Y 


AF69 A8 


2299 


TAY 


AF6A 8A 


2300 


TXA 


AF6B 4C91B3 


2301 


JMP JB391 




2302 ; 




AF6E 2014AF 


2303 BAF6E 


JSR SAF14 


AF71 902D 


2304 


BCC BAFAO 


AF73 E054 


2305 


CPX 'T 


AF75 DOIB 


2306 


BNE BAF92 


AF77 C049 


2307 


CPY 'I 


AF79 D025 


2308 


BNE BAFAO 


AF7B 2084AF 


2309 


JSR SAF84 


AF7E 98 


2310 


TYA 


AF7F A2A0 


2311 


LDX $A0 


AF81 4C4FBC 


2312 


JMP JBC4F 



;gather name and get pointer to variable 
;save pointer to variable 

Jget name of variable 

;if not a string 

;go check for integer and flp 



; check for pointer < $A000 or > $E342 
;yes, return 

;lf first character of variable not T, 
; return 

J if second character ■= "1$" 

Jget time in flp accu 
; clear exponent base 10 

;lnitlallze output Index 

;and # of digits before decimal point 

;set table index for time conversion 
; convert flp to string 

;get description of string into flp accu 



;if integer variable 



;get integer value in AY 



; convert integer to flp 

;if not normal variable 

;and if first character is T 

;and second character is I 

;get time into flp accu 

;set exponent 

;sign and guard bits 
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2314 
2315 

AF84 20DEFF 2316 
AF87 8664 2317 
AF89 8463 
AF8B 8565 
AF8D AOOO 
AF8F 8462 
AF91 60 



get time in flp accu 

; fetch time 



2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 



SAF84 JSR XFFDE 
STX Z64 
STY Z63 
STA Z65 
LDY $00 
STY Z62 
RTS 



;store time 



AF92 E053 
AF94 DOOA 
AF96 C054 
AF98 D006 
AF9A 20B7FF 2330 
AF9D 4C3CBC 2331 
2332 

AFAO A564 2333 
AFA2 A465 2334 
AFA4 4CA2BB 2335 
2336 
2337 
2338 
2339 
2340 
2341 



; continue to get value of variable 

;if first character is S 
;and second character is T 



AFA7 OA 
AFA8 48 
AFA9 AA 
AFAA 207300 2342 
AFAD E08F 2343 
AFAF 9020 2344 
AFBl 20FAAE 2345 
AFB4 209EAD 2346 
AFB7 20FDAE 2347 
AFBA 208FAD 2348 
AFBD 58 2349 
AFBE AA 2350 
AFBF A565 2351 
AFCl 48 2352 
AFC2 A564 2353 
AFC4 48 2354 
AFC5 8A 2355 
AFC6 48 2356 
AFC7 209EB7 2357 
AFCA 68 2358 
AFCB A8 2359 
AFCC 8A 2360 
AFCD 48 2361 
AFCE 4CD6AF 2362 
2363 

AFDl 20F1AE 2364 
AFD4 68 2365 
AFD5 A8 2366 
AFD6 B9EA9F 2367 
AFD9 8555 2368 
AFDB B9EB9F 2369 
AFDE 8556 2370 
AFEO 205400 2371 
AFE3 4C8DAD 2372 



BAF92 CPX 'S 

BNE BAFAO 
CPY 'T 
BNE BAFAO 
JSR XFFB7 
JMP JBC3C 

BAFAO LDA Z64 
LDY Z65 
JMP SBBA2 

;apply function 

JAFA7 ASL A 
PHA 



TAX 

JSR X0073 
CPX $8F 
BCC BAFDl 
JSR SAEFA 
JSR SAD9E 
JSR SAEFD 
JSR SADSF 
PLA 
TAX 

LDA Z65 
PHA 

LDA Z64 
PHA 
TXA 
PHA 

JSR SB79E 

PLA 

TAY 

TXA 

PHA 

JMP JAFD6 



;get status word 

;move signed # from A into flp accu 
;for normal variables, put pointer in AY 
;load flp accu from AY 



; index byte * 2 
;save index 

;get next character 

;lf function with more than 1 parameter 

;next character must be "(" 
;evaluate expression 
;next character must be "," 
; result must be a string value 
; res tore index 

;save pointer to description on stack 



;save index again 

;get next integer value into X 
; restore index 
; index in Y 

;save integer parameter 



;get value in parenthesis 
; restore Index 



BAFDl JSR BAEFl 
PLA 
TAY 

JAFD6 LDA X9FEA,Y ;get pointer to function routine 
STA Z55 ;into Z55/Z56 

LDA X9FEA+1,Y 
STA Z56 

JSR X0054 ; perform function 

JMP SAD8D ; return with correct string flag 



51 







2374 


; "OR' 


couinand 






2375 






AFE6 


AOFF 


2375 


WAFE6 


1 LDY $FF 


AFE8 


2C 


2377 
2378 




.BY $2C 






2379 


; "AND" comnand 






2380 






AFE& 


AOOO 


2381 


WAFE9 




AFEB 


340B 


2362 




oil £,{JlS 


AFED 


20BFB1 


2383 




Joss. ODLlit 


AFFO 


A564 


2384 




LDA Z64 


AFF2 


450B 


2385 






AFF4 


8507 


2386 




biA ZU/ 


AFF6 


A565 


2387 




LDA 265 


AFF8 


450B 


23S8 






AFFA 


B508 


2389 




•-> X ri CiKJO 


AFFC 


20FCBB 


2390 




JSR SBBFC 


AFFF 


20BFB1 


2391 




JSR SBIBF 


BOO 2 


A565 


2392 




LDA Z65 


B004 


450B 


2393 




EOR ZOB 


BOOb 


2508 


2394 




AND Z08 


BOOa 


450B 


2395 




EOR ZOB 


BOOA 


A8 


2396 




TAY 


BOOB 


A564 


2397 




LDA Z64 


nOOL 


450B 


2398 




EOR ZOB 


BOOF 


2507 


2399 




AND Z07 


BOll 


450B 


2400 




EOR ZOB 


B013 


'.C91B3 


2401 




JhlP JB391 



;set paraneter to complement operands 
;skip next instruction 



; set no compleraent of operands 

; store the parameter 

; convert left operand to integer 

;get high byte 

; complement if OK 

; save result 

;get low byte 

; complement if OR 

; save result 

;move second flp accu to first flp accu 

; convert right operand to integer 

;get low byte 

; complement if OR 

;AND with left operand 

; complement if OR 

; save result 

;get high byte 

; complement if OR 

;AKD with other operand 

; complement if OR 

; convert integer from AY to flp accu 
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2403 ;"<=>" command 

2404 ; 

B016 2090AD 2405 WB016 JSR SAD90 



B019 B013 


2406 


BCS BB02E 


BOIB - 


(V56E 


2407 


LDA Z6E 


BOID ' 


097F 


2408 


ORA $7F 


BOIF 


255A 


2409 


AND Z6A 


B021 


856A 


2410 


STA Z6A 


B023 


A969 


2411 


LDA <Z69 


B025 


AOOO 


2412 


LDY >Z69 


B027 


205BBC 


2413 


JSR SBC5B 


B02A 


AA 


2414 


TAX 


B02B 


4C61B0 


2415 


JMP JB061 






2416 




B02E 


A900 


2417 : 


BB02E LDA $00 


B030 


850D 


2418 


STA ZOD 


B032 


C64D 


2419 


DEC Z4D 


B034 


20A6B6 


2420 


JSR SB6A6 


B037 


8561 


2421 


STA Z61 


B039 


8662 


2422 


STX Z62 


B03B 


8463 


2423 


STY Z63 


B03D 


A56C 


2424 


LDA Z6C 


B03F 


A46D 


2425 


LDY Z6D 


B041 


20AAB6 


2426 


JSR SB6AA 


B044 


865C 


2427 


STX Z6C 


B046 


846D 


2428 


STY Z6D 


B048 


AA 


2429 


TAX 


B049 


38 


2430 


SEC 


B04A E561 


2431 


SBC Z61 


B04C 


F008 


2432 


BEQ BB056 


B04E 


A901 


2433 


LDA $01 


B050 


9004 


2434 


BCC BB056 


B052 


A661 


2435 


LDX Z61 


BO 54 


A9FF 


2436 


LDA $FF 


B056 


8566 


2437 


BB056 STA Z66 


B058 


AOFF 


2438 


LDY $FF 


BO 5 A 


E8 


2439 


INX 


B05B 


C8 


2440 


BB05B INY 


B05C 


CA 


2441 


DEX 


B05D D007 


2442 


BNE BB066 


B05F 


A666 


2443 


LDX Z66 


B061 


300F 


2444 


JB061 BMI BB072 


B063 


18 


2445 


CLC 


B064 


900C 


2446 


BCC BB072 


B066 


B16C 


2447 


BB066 LDA (Z6C),Y 


B068 


D162 


2448 


CMP (Z62),Y 


B06A 


FOEF 


2449 


BEQ BB05B 


B06C 


A2FF 


2450 


LDX $FF 


B06E 


B002 


2451 


BCS BB072 


B070 


A201 


2452 


LDX $01 


B072 


E8 


2453 


BB072 INX 


B073 


8A 


2454 


TXA 


B074 


2A 


2455 


ROL A 


B075 


2512 


2456 


AND Z12 


B077 


F002 


2457 


BEQ BB07B 


B079 


A9FF 


2458 


LDA $FF 



B07B 4C3CBC 2459 BB07B JMP JBC3C 



; check value of A 

;if string, go compare strings 

; Include sign bit 

;lnto byte 1 

;of fraction of second flp accu 

;set AY to second flp accu 
;compare AY with flp accu 
;save result of comparison 
; check with <=> code 



; reset string flag 

;also remove saved string flag 

;de-allocate temp, string (right op) 



;get text pointer of left operand 

;de-allocate temp, string (left op) 
;save text pointer 

;save length of left operand 

;compare lengths (left-right) 
;if equal, A=0 
;set A to 1 

;if left operand longer, 
;get length of shorter string 
;and set A to -1 
;save sign of left-right 
;set start index into strings 

;point to next character 

;if more characters, compare 

;if not, restore sign of left-right 

;set correct C bit 
;JMP 

;get character from left string 
;compare to character from right string 
;if equal, repeat 

;X = -1 if character from left higher 

;X = 1 if character from left lower 
;X =■ 0, 1 or 2 for left > = < 

; convert to 1, 2 or 4 

;mask with <=> code 

;if zero, result = false (0) 

;if non-zero, result = true (-1) 

;go get signed # from A into flp accu 
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B07E 20FDAE 
B081 AA 
B082 2090B0 
B085 207900 
BOSS D0F4 
B08A 60 



B08B 
B08D 
B090 
B092 
B094 
B097 
B09A 
B09C 



A200 
207900 
860C 
8545 
207900 
2013B1 
B003 
4C08AF 



B09F 
BOAl 
B0A3 
B0A5 
BOAS 
BOAA 
BO AD 
BOAF 
BOBO 
B0B3 
BOBS 
BOBS 
BOBA 
BOBC 
BOBE 
BOCO 
B0C2 
B0C4 
B0C6 
B0C8 
BOCA 
BOCC 
BOCE 
BODO 
B0D2 
B0D4 
B0D5 
BOD 7 
BODS 
BODB 
BODD 
BODE 
BOEO 
B0E2 
B0E4 



A200 
860D 
860E 
207300 
9005 
2013B1 
900B 
AA 

207300 
90FB 
2013B1 
B0F6 
C924 
D006 
A9FF 
850D 
DOlO 
C925 
D013 
A510 
DODO 
A980 
850E 
0545 
8545 
8A 
0980 
AA 

207300 
8646 
38 

0510 
E928 
D003 
4CD1B1 



B0E7 AOOO 
B0E9 8410 
BOEB A52D 
BOED A62E 



2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
^508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 



; "DIM" command 

9 

BB07E JSR SAEFD 

WB081 TAX 

JSR SB090 
JSR X0079 
BNE BB07E 
RTS 



; SYNTAX Error If not "," 

; gather name and pointer to variable 

;get current character 

;lf not end of statement, repeat 



;get nape and pointer to a variable 



BBOAF 
BBOBO 



SB08B LDX $00 

JSR X0079 
SB090 STX ZOC 
SB092 STA Z45 

JSR X0079 
JSR SB113 
BCS BB09F 
BB09C JMP JAF08 

BB09F LDX $00 
STX ZOD 
STX ZOE 
JSR X0073 
BCC BBOAF 
JSR SB113 
BCC BBOBA 
TAX 

JSR XO073 
BCC BBOBO 
JSR SB113 
BCS BBOBO 
BBOBA CMP '$ 

BNE BB0C4 
LDA $FF 
STA ZOD 
BNE BB0D4 
BB0C4 CMP 'Z 

BNE BBODB 
LDA ZIO 
BNE BB09C 
LDA $80 
STA ZOE 
ORA Z45 
STA Z45 
BB0D4 TXA 

ORA $80 
TAX 

JSR XO073 
BBODB STX Z46 
SEC 

ORA ZIO 
SBC '( 
BNE BB0E7 
JMP JBIDI 



BB0E7 LDY $00 
STY ZIO 
LDA Z2D 
LDX Z2E 



;set code for ref, not declaration 

;get current character 

;set reference/declaration flag 

;store first character of name 

;get current character 

;lf not alphabetic 

;then SYNTAX Error message 

;set flags 
;to not string 
;and not integer 
;get next character 
;lf ntnnerlc 

;or alphabetic 

;save second character In X 

;get next character 

;untll first non-numeric character 

;not alphabetic 

;lf terminator is "$" 



;then set flag for strings 

;lf terminator Is "%" 

;and Integers not allowed 
;then SYNTAX Error 

;else set Integer flag and 

;add bit 7 to first char of name 

;add bit 7 to 2nd char of name 
;for both string and integer 

;get next character 

;save second character name 

;if arrays allowed 

;and next character is "(" 

; handle dimensioned variable 

;reset no integers or arrays switch 
;AX=polnter to variable name table 
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BOEF 8660 
BOFl 855F 
B0F3 E430 
B0F5 D004 
B0F7 C52F 
B0F9 F022 
BOFB A545 
BOFD D15F 
BOFF D008 
BlOl A546 
B103 C8 
B104 D15F 
B106 F07D 
B108 88 
B109 18 
BlOA A55F 
BIOC 6907 
BlOE 90E1 
BllO E8 
Bill DODC 



2521 BBOEF SIX Z60 

2522 BBOFl STA Z5F 

2523 CPX Z30 

2524 BNE BBOFB 

2525 CMP Z2F 

2526 BEQ BBllD 

2527 BBOFB LDA Z45 



2528 
2529 
2530 
2531 
2532 
2533 
2534 

2535 BB109 
2536 
2537 
2538 
2539 
2540 
2541 



CMP {Z5F),Y 
BNE BB109 
LDA Z46 
INY 

CMP (Z5F),Y 
BEQ BB185 
DEY 
CLC 

LDA Z5F 
ADC $07 
BCC BBOFl 
INX 

BNE BBOEF 



;lf at end of name table 

;then variable not found 
;lf name matches 

; then variable found 
;set AX to entry + 7 



2542 
2543 
2544 
2545 



; continue search 

y 

; check character in A 



; return with C"l 
;return with C=0 















SB113 


CMP 'A 




2548 




BCC BBllC 


B117 E95B 


2549 




SBC 'Z+1 


B119 38 


2550 




SEC 


BllA E9A5 


2551 




SBC $A5 


BllC 60 


2552 


BBllC 


RTS 




2553 








2554 


; variable not found 




2555 






BHD 68 


2556 


BBllD 


PLA 


BllE 48 


2557 




PIIA 


BllF C92A 


2558 




CMP $2A 


B121 D005 


2559 




BNE BB128 


B123 A913 


2560 


BB123 LDA $13 


B125 AOBF 


2561 




LDY $BF 


B127 60 


2562 




RTS 




2563 






B128 A545 


2564 


BB128 


LDA Z45 


B12A A446 


2565 




LDY Z46 


B12C C954 


2566 




CMP 'T 


B12E DOOB 


2567 




BNE BB13B 


B130 C0C9 


2568 




CPY $C9 


B132 FOEF 


2569 




BEQ BB123 


B134 C049 


2570 




CPY 'I 


B136 D003 


2571 




BNE BB13B 


B138 4C08AF 


2572 


BB138 


JMP JAF08 




2573 






B13B C953 


2574 


BB13B 


CMP 'S 


B13D D004 


2575 




BNE BB143 


B13F C054 


2576 




CPY 'T 


B141 F0F5 


2577 




BEQ BB138 


B143 A52F 


2578 


BB143 


LDA Z2F 


B145 A430 


2579 




LDY Z-^O 


B147 855F 


2580 




STA Z5F 



alphabetic 
not 

;lf character < "A" 

; return with C = 

;if character > "Z" then C - 

;else return with C=l 



;lf low byte of return address - $2A 
(if called from GET VALUE OF VARIABLE) 

; return with AY pointing to 
;a dummy variable (value 0) 



;if name = TI$ 

; return with dummy value 
;lf narae=TI 

;then SYNTAX Error 

;if name- ST 



;then SYNTAX Error 

;set AY to pointer to end of name table 
;and save as start of input for move 
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B149 
B14B 
B14D 
B14F 
B151 
B153 
B154 
B156 
B158 
B159 
B15B 
B15D 
B160 
B162 
B164 
B165 
B167 
B169 
BI6B 
B16D 
B16F 
B170 
B172 
B174 
B176 
B177 
B179 
B17A 
B17C 
B17D 
B17F 
B180 
B182 
B183 



8460 
A531 
A432 
855A 
845B 
18 

6907 
9001 
C8 

8558 
8459 
20B8A3 
A558 
A459 
C8 

852F 
8430 
AOOO 
A545 
915F 
C8 

A546 
915F 
A900 
C8 

915F 
C8 

915F 
C8 

915F 
C8 

915F 
C8 

915F 



B185 A55F 
B187 18 
B188 6902 
B18A A460 
B18C 9001 
B18E C8 
B18F 8547 
B191 8448 
B193 60 



2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 



STY 
LDA 
LDY 
STA 
STY 
CLC 
ADC 
BCC 
INY 

BB159 STA 
STY 
JSR 
LDA 
LDY 
INY 
STA 
STY 
LDY 
LDA 
STA 
INY 
LDA 
STA 
LDA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 
INY 
STA 



Z60 
Z31 
Z32 
Z5A 
Z5B 

$07 
BB159 

Z58 
Z59 
SA3B8 
Z58 
Z59 

Z2F 
Z30 
$00 
Z45 

(Z5F),Y 
Z46 

(Z5F),Y 
$00 

(Z5F),Y 
(Z5F),Y 
(Z5F),Y 
(Z5F),Y 
(Z5F),Y 



; variable found 



BB185 LDA Z5F 
CLC 

ADC $02 
LDY Z60 
BCC BB18F 
INY 

BB18F STA Z47 
STY Z48 
RTS 



;AY=pointer to end of array area 

;add 7 to pointer for one entry 

;into pointer to end of output for move 
; check for space and move bytes 
;AY=beglnnlng of output area 
;for move routine 

;move to pointer to end of name table 
;store first byte of name in byte 
;store second byte of name in byte 1 
;clear bytes 2-6 (value) 



;return pointer to entry 
iplus 2 



;in variable address and AY 
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B194 A50B 
Bl% OA 
B197 6905 
B199 655F 
B19B A460 
B19D 9001 
B19F C8 
BIAO 8558 
B1A2 8459 
B1A4 60 



B1A5 908000 



BIAA 20BFB1 
BIAD A564 
BIAF A465 
BlBl 50 



B1B2 207300 
B1B5 209EAD 
B1B8 208DAD 
BIBB A566 
BIBD 300D 



BIBF 
BlCl 
B1C3 
B1C5 
B1C7 
B1C9 
BlCC 
BICE 



A561 
C990 
9009 
A9A5 
AOBl 
205BBC 
D07A 
4C9BBC 



2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 



; compute pointer to array body 



SB194 LDA ZOB 
ASL A 
ADC $05 
ADC Z5F 
LDY Z50 
BCC BBIAO 
INY 

BBIAO STA Z58 
STY Z59 
RTS 



;get # of dimensions 
;* 2 

;add fixed overhead 

;add low byte of array pointer 

;get high byte of array pointer 

; increment if carry 

;save pointer to body of array 



;flp number for conversion to integer 
TB1A5 .BY $90, $80, $00, $00, $00 

■routine to convert floating point number to fixed point 
; convert flp to fixed point 
; return with value in AY 



JSR SBIBF 
LDA Z64 
LDY Z65 
RTS 



; convert value from statement into Integer 



SB1B2 JSR X0073 
JSR SAD9E 

SB1B8 JSR SAD8D 
LDA Z66 
BHI BBICC 



;get next character 
;get value from statement 
; check for non- string 
;if flp accu negative, 
; ILLEGAL QUANTITY Error 



; convert flp number to Integer 



SBIBF LDA Z61 ;get exponent 

CMP $90 ;if < 16 

BCC BBICE ; convert 

LDA <TB1A5 ;let AY point to flp value -32768 
LDY >TB1A5 

JSR SBC5B ; compare AY to flp accu 

BBICC BNE JB248 ;lf not >, ILLEGAL QUANTITY Error 

BBICE JMP SBC9B ;convert flp accu to 4 byte integer 
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2671 ;get pointer to dimensioned variable 



;save reference flag 
;and Integer flag 





2672 


> 




BlDl A50C 


2673 


JBIDI LDA ZOC 


B1D3 050E 


2674 




ORA ZOE 


B1D5 48 


2675 




PHA 


B1D6 A50D 


2676 




LDA ZOD 


BIDS 48 


2677 




PHA 


B1D9 AOOO 


2678 




LDY $00 


BIDB 98 


2679 


BBIDB TYA 


BIDC 48 


2680 




PHA 


BIDD A546 


2681 




LDA Z46 


BIDF 48 


2582 




PHA 


BlEO A545 


2683 




LDA Z45 


B1E2 48 


2684 




PHA 


B1E3 20B2BI 2685 




JSR SB1B2 


B1E6 68 


2686 




PLA 


D1i?7 DC/. C 
BiCi/ OD^D 


2687 




STA Z45 


BiEy bo 


2688 




PLA 




2689 




STA Z46 


DlCiLf OO 


2690 




PLA 


RlTTn AH 


1 




TAY 


X El El DA 


2692 




TSX 


■Rl w nnn'>m 


. 2693 




LDA X0102,X 


B1F2 48 


2694 




PHA 




. 2695 




LDA XUlOljX 


oirD 'to 


2696 




PHA 


Rl 177 i^fiA 


2697 




LDA Z64 




2698 




alA XUlOzjX 




2699 




LDA Z65 


Rl w Onni m 


2700 




CT A VAl /M V 
oIA XUiOl ,X 


R?ni PR 


2701 




INY 




2702 




TOD vnn7Q 


bzU3 cyzc 


2703 




CMP ' , 


D£.\JI f UUZ 


2704 




BEQ BBlDB 


R9n0 flAOn 
OZU3 o4Ud 


2705 




bix ZUB 


R^flR 9nF7AF 


2706 




JSR SAEF7 


B20E 68 


2707 




PLA 




2708 




STA ZOD 


B2H 68 


2709 




PLA 


B212 850E 


2710 




STA ZOE 


B2I4 297F 


2711 




AND $7F 


B2I6 850C 


2712 




STA ZOC 


B218 A62F 


2713 






B21A A530 


2714 




LDA Z30 


B21C 865F 


2715 BB21C 


STX Z5F 


B21E 8560 


2716 




STA Z60 


B220 C532 


2717 




CMP Z32 


B222 D004 


2718 




BNE BB228 


B224 E431 


2719 




CPX Z31 


B226 F039 


2720 




BEQ BB261 


B228 AOOO 


2721 BB228 


LDY $00 


B22A B15F 


2722 




LDA (Z5F),Y 


B22C C8 


2723 




INY 


B22D C545 


2724 




CMP Z45 


B22F D006 


2725 




BNE BB237 


B231 A546 


2726 




LDA Z46 


B233 D15F 


2727 




CMP (Z5F),Y 


B235 F016 


2728 




BEQ BB24D 


B237 C8 


2729 BB237 


INY 


B238 B15F 


2730 




LDA (Z5F).Y 



;save string flag 

; initialize count # of dimensions 



;save count 



;save second character of name 



;save first character of name 
; convert value from statement 



to integer 



;restore first character of name 

; restore second character of name 

; restore count 
;get stack pointer 

;move saved flags to top of stack 



;save array index in their place 

; increment dimension pointer 
;get current character 
;if "." 

; repeat for next array index 
;save total number of dimensions 
;skip ■•)•' 

; restore string flag 
;restore integer flag 
;and reference flag 
;AX = pointer to array area 
;save in temporary pointer 



;if end of array area reached 
;then array not found 

;get first character of name 

;lf equal 



;and second character of name also 
;then array found 

;get low byte of length 
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B23A 


1 fi 


'>7 T 1 




CLC 






B23B 




LI 




ADC 


Z5F 


• add to array pointer 


B23D 


AA 


2733 




TAX 




;and save result in X 


B23E 


C8 


£. 1 J'* 




INY 






B23F 


tii jr 


CIJJ 




LDA 




;get high byte of length 


B241 


6560 


2736 




ADC 


Z60 


* add to array pointer 


B243 


90D7 


LI Jl 




BCC 


BB2 IC 


f repeat if not overflow 


B245 


A2I2 


T 71Q 
L 1 So 


BB245 


LDX 


if\.L 


; point to BAD SUBSCRIPT Error message 


B247 


2C 


2739 
2740 




• BY 


tor 


t olr't n n ov f" i riRt niP t iOfl 


B248 


A20E 


LI Hi. 


JB248 


LDX 


$0E 


; point to ILLEGAL QUANTITY Error message 


B24A 


4C37A4 


2742 


BB24A JMP 


T A A "J 7 


J print message 


B24D 


A213 




BB24D 


LDX 


9^-5 


; point to BAD SUBSCRIPT Error message 


B24F 


A50C 


2744 




LDA 


ZOC 


'■if i4ar>1ai*af"t nn 


B25I 


D0F7 


2745 




BNE 


BB24A 


; then fatal error 


B253 


2094B1 


2746 




JSR 


SB194 


; compute pointer to array body 


B256 


A50B 


2747 




LDA 


ZOB 


;if actual # of dimensions 


B258 


A004 


2748 




LDY 


$04 




B25A 


D15F 


2749 




CMP 


(Z5F),Y 


;not equal to declared # 


B25C 


DOE 7 


2750 




BNE 


BB245 


;then error 


B25E 


4CEAB2 


2751 




JMP 


JB2EA 


;else compute array reference 



59 







2753 


;al locate 


array 






2754 


! 






B261 


2094B1 


2755 


BB261 


JSR 


SB194 


B264 


2008A4 


2756 




JSR 


SA408 


B267 


AOOO 


2757 




LDY 


$00 


B269 


8472 


2758 




STY 


Z72 


B26B 


A205 


2759 




LDX 


$05 


B26D 


A545 


2760 




LDA 


245 


B26F 


915F 


2761 




STA 


(Z5F) ,Y 


B271 


1001 


2762 




BPL 


BB274 


B273 


CA 


2763 




DEX 




B274 


C8 


2764 


BB274 


XNY 




B275 


A546 


2765 




LDA 


Z46 


B277 


915F 


2766 




STA 


(Z5F) ,Y 


B279 


1002 


2767 




BPL 


BB27D 


B27B 


CA 


2768 




DEX 




B27C 


CA 


2769 




DEX 




B27D 


8671 


2770 


BB27D 


SIX 


Z71 


B27F 


A50B 


2771 




LDA 


ZOB 


B281 


C8 


2772 




INY 




B282 


C8 


2773 




INY 




B283 


08 


2774 




INY 




B284 


915F 


2775 




STA 


(Z5F) ,Y 


B286 


A20B 


2776 


BB286 


LDX 


$0B 


B288 


A900 


2777 




LDA 


$00 


B28A 


240C 


2778 




BIT 


ZOC 


B28C 


5008 


2779 




BVC 


BB296 


B28E 


68 


2780 




PLA 




B28F 


18 


2781 




CLC 




B290 


6901 


2782 




ADC 


$01 


B292 


AA 


2783 




TAX 




B293 


68 


2784 




PLA 




B294 


6900 


2785 




ADC 


$00 


B296 


C8 


2786 


BB296 


INY 




B297 


915F 


2787 




STA 


(Z5F),Y 


B299 


C8 


2788 




INY 




B29A 


8A 


2789 




TXA 




B29B 


915F 


2790 




STA 


(Z5F) ,Y 


B29D 


204CBJ 


2791 




JSR 


SB34C 


B2A0 


8671 


2792 




STX 


Z71 


B2A2 


8572 


2793 




STA 


Z72 


B2A4 


A422 


2794 




LDY 


Z22 


B2A6 


C60B 


2795 




DEC 


ZOB 


B2A8 


DODC 


2796 




BNE 


BB286 


B2AA 


6559 


2797 




ADC 


Z59 


B2AC 


B05D 


2798 




BCS 


BB30B 


B2AE 


8559 


2799 




STA 


Z59 


B2B0 


A8 


2800 




TAY 




B2B1 


8A 


2801 




TXA 




B2B2 


6558 


2802 




ADC 


Z58 


B2B4 


9003 


2803 




BCC 


BB2B9 


B2B6 


C8 


2804 




INY 




B2B7 


F052 


2805 




BEQ 


BB30B 


B2B9 


70nflA4 


2806 


BB2B9 


JSR 


SA408 


B2BC 


8531 


2807 




STA 


Z31 


B2BE 


8432 


2808 




STY 


Z32 


B2C0 


A900 


2809 




LDA 


$00 


B2C2 


E672 


2810 




INC 


Z72 


B2C4 


A471 


2811 




LDY 


Z71 


B2C6 


F005 


2812 




BEQ 


BB2CD 



; compute pointer to virtual array body 
; check array area for overflow 

; initialize high byte of length 
;set length per element 
;get first character of name 
;into + of array header 
;if integer 

;adjust length per element 

;move second character of name 
;into + 1 of array header 
;if Integer or string 

; correct length per element 
;set initial low byte of length 
;move # of dimensions 



;into + 4 of array header 
;set default dimension (11) 

;if declaration 
;skip 

;else get limit from stack 
;add 1 for element # 
; limit into AX 



;move limit into next byte of header 



; low byte also 

;AX » length * limit 

;save into length 

; restore index into array header 

;decrement # of dimensions 

; repeat until done 

;add high byte of length to body pointer 
;if overflow, OUT OF MEMORY Error 
;save pointer to end of body 
;also in Y 

;add low byte of length to body pointer 

;if overflow 

; increment high byte 

;if overflow, OUT OF MEMORY Error 

; check array area for overflow 

;set new end of array area 

;get length 

;if low byte of length not zero 
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B2C8 


88 


2813 


BB2C8 


DEY 




; decrement index 


B2C9 


9158 


2814 




STA 


(Z58),Y 


; store zero in array byte 


B2CB 


DOFB 


2815 




BNE 


BB2C8 


;until low byte of length is zero 


B2CD 


C659 


2816 


BB2CD 


DEC 


Z59 


;then set pointer to next block of 256 


B2CF 


C672 


2817 




DEC 


Z72 


;and decrement high byte of length 


B2D1 


D0F5 


2818 




BNE 


BB2C8 


;repeat until length is zero 


B2D3 


E659 


2819 




INC 


Z59 




B2D5 


38 


2820 




SEC 






B2D6 


A531 


2821 




LDA 


Z31 


;get address of end of array area 


B2D8 


E55F 


2822 




SBC 


Z5F 


;minus pointer to array area 


B2DA 


A002 


2823 




LDY 


$02 




B2DC 


915F 


2824 




STA 


(Z5F),Y 


;store low byte in + 2 of array header 


B2DE 


A532 


2825 




LDA 


Z32 


;move high byte of difference 


B2E0 


C8 


2826 




INY 






B2E1 


E560 


2827 




SBC 


Z60 




B2E3 


915F 


2828 




STA 


(Z5F),Y 


;into + 3 of array header 


B2E5 


A50C 


2829 




LDA 


ZOC 


;if declaration 


B2E7 


D062 


2830 




BNE 


BB34B 


;then return 


B2E9 


C8 


2831 
2832 


f 


INY 




;else point to declared # of dlmentions 






2833 


; compute reference 


to array element 






2834 










B2EA 


B15F 


2835 


JB2EA 


LDA 


(Z5F),Y 


;get It of dimensions from array header 


B2EC 


850B 


2836 




STA 


ZOB 


;save it 


B2EE 


A900 


2837 




LDA 


$00 




B2F0 


8571 


2838 




STA 


Z71 


;initlallze offset in body 


B2F2 


8572 


2839 


BB2F2 


STA 


Z72 




B2F4 


C8 


2840 




INY 






B2F5 


68 


2841 




PLA 




;get low byte of index from stack 


B2F6 


AA 


2842 




TAX 




;into X 


B2F7 


8564 


2843 




STA 


Z64 


;and flp accu 


B2F9 


68 


2844 




PLA 




;get high byte of index from stack 


B2FA 


8565 


2845 




STA 


Z65 


;into A and flp accu 


B2FC 


D15F 


2846 




CMP 


(Z5F),Y 


;compare index to limit 


B2FE 


90 OE 


2847 




BCC 


BB30E 


;if lower, OK 


B300 


D006 


2848 




BNE 


BB308 


;lf higher, BAD SUBSCRIPT Error 


B302 


C8 


2849 




INY 




;if equal 


B303 


8A 


2850 




TXA 






B304 


D15F 


2851 




CMP 


(Z5F),Y 


; compare low bytes 


B306 


9007 


2852 




BCC 


BB30F 


;if lower, OK 


B308 


4C45B2 


2853 


BB308 


JMP 


BB245 


;else BAD SUBSCRIPT Error 


B30B 


4C35A4 


2854 
2855 


BB30B 


JMP 


BA435 


;OUT OF MEMORY Error 


B30E 


C8 


2856 


BB30E 


INY 






B30F 


A572 


2857 


BB30F 


LDA 


Z72 


;if total index so far = 


B311 


0571 


2858 




ORA 


Z71 




B313 


18 


2859 




CLC 






B314 


FOOA 


2860 




BEQ 


BB320 


;skip multiplication 


B316 


204CB3 


2861 




JSR 


SB34C 


;XY = offset * limit 


B319 


8A 


2862 




TXA 






B31A 6564 


2863 




ADC 


Z64 


;add low byte of array index to A 


B31C 


AA 


2864 




TAX 






B31D 


98 


2865 




TYA 






B31E 


A422 


2866 




LDY 


Z22 


; restore index to array header 


B320 


6565 


2867 


BB320 


ADC 


Z65 


;add high byte of array index to A 


B322 


8671 


2868 




STX 


Z71 


;save low byte of new offset 


B324 


C60B 


2869 




DEC 


ZOB 


;if not last index. 


B326 


DOCA 


2870 




BNE 


BB2F2 


; repeat for next index 


B328 


8572 


2871 




STA 


Z72 


;save high byte of offset 


B32A 


A205 


2872 




LDX 


$05 


;set length per element for flp # 
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B32C 


A545 


2873 




LDA Z45 


B32E 


1001 


2874 




BPL BB331 


B330 


CA 


2875 




DEX 


B331 


A546 


2876 


BB331 


LDA Z46 


B333 


1002 


2877 




BPL BB337 


B335 


CA 


2878 




DEX 


B336 


CA 


2879 




DEX 


B337 


8628 


2880 


BB337 


STX Z28 


B339 


A900 


2881 




LDA $00 


B33B 


2055B3 


2882 




JSR SB355 


B33E 


8A 


2883 




TXA 


B33F 


6558 


2884 




ADC Z58 


B341 


8547 


2885 




STA Z47 


B343 


98 


2886 




TYA 


B344 


6559 


2887 




ADC Z59 


B346 


8548 


2888 




STA Z48 


B348 


A8 


2889 




TAY 


B349 


A547 


2890 




LDA Z47 


B34B 


60 


2891 


BB34B 


RTS 



;lf Integer 

; correct length per element 

;lf Integer or string 

; correct length per element 

;XY = offset * length per element 

;add to pointer to array body 

; store result into variable address 

;high byte also 

; return with AY = variable address 
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2893 


;XY = 


XA - 


• length 






2894 








B34C 


8422 


2895 


SB34C 


STY 


Z22 


B34E 


B15F 


2896 




LDA (Z5F),Y 


B350 


8528 


2897 




STA 


Z28 


B352 


88 


2898 




DEY 




B353 


B15F 


2899 




LDA (Z5F),Y 


B355 


8529 


2900 


SB355 


STA 


Z29 


B357 


A910 


2901 




LDA $10 


B359 


855D 


2902 




STA 


Z5D 


B35B 


A200 


2903 




LDX $00 


B35D 


AOOO 


2904 




LDY 


$00 


B35F 


8A 


2905 


BB35F 


TXA 




B360 


OA 


2906 




ASL 


A 


B361 


AA 


2907 




TAX 




B362 


98 


2908 




TYA 




B363 


2A 


2909 




ROL 


A 


B364 


A8 


2910 




TAY 




B365 


B0A4 


2911 




BCS 


BB30B 


B367 


0671 


2912 




ASL 


Z71 


B369 


2672 


2913 




ROL 


Z72 


B36B 


900B 


2914 




BCC 


BB378 


B36D 


18 


2915 




CLC 




B36E 


8A 


2916 




TXA 




B36F 


6528 


2917 




ADC 


Z28 


B371 


AA 


2918 




TAX 




B372 


98 


2919 




TYA 




B373 


6529 


2920 




ADC 


Z29 


B375 


A8 


2921 




TAY 




B376 


B093 


2922 




BCS 


BB30B 


B378 


C65D 


2923 


BB378 


DEC 


Z5D 


B37A 


D0E3 


2924 




BNE 


BB35F 


B37C 


60 


2925 




RTS 





limit from array data 

;save Index in array header 
;get low byte of limit 
;save it 

;get high byte of limit 

;and save it too 

;set # bits for multiplication 

; initialize result fields 
;XY * 2 

;if overflow, OUT OF MEMORY Error 
; shift high bit out of length 
;if set 

;add low byte of limit to XY 
;hlgh byte also 

;if overflow, OUT OF MEMORY Error 
; repeat for all bits of length 
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2927 


;"FRE" command 








2928 


J 




B37D 


A50D 


2929 


WB37D LDA ZOD 


;if string flag set 


B37F 


F003 


2930 


BEQ BB384 




B381 


20A6B6 


2931 


JSR SB6A6 


;de-allocate temporary string storage 


B384 


2026B5 


2932 


BB384 JSR SB526 


; perform garbage clean-up 


B387 


38 


2933 


SEC 




B388 


A533 


2934 


LDA Z33 


; compute difference between 


B38A E531 


2935 


SBC Z31 


;pointer to allocated string area 


B38C 


A8 


2936 


TAY 


;aad pointer to end of array area 


B38D 


A534 


2937 


LDA Z34 




B38F 


E532 


2938 


SBC Z32 


; convert length into flp accu 






2939 


J 








2940 


; routine to convert 


integer to floating point 






2941 


J 




B391 


A200 


2942 


JB391 LDX $00 




B393 


860D 


2943 


STX ZOD 


; clear string flag 


B395 


8562 


2944 


STA Z62 


;store integer from AY Into flp accu 


B397 


8463 


2945 


STY Z53 




B399 


A290 


2946 


LDX $90 


;load exponent (16) 


B39B 


4C44BC 


2947 


JMP JBC44 


; convert to floating point t 






2948 


J 








2949 


;"POS" command 








2950 


y 




B39E 


38 


2951 


WB39E SEC 


;set carry to read cursor position 


B39F 


20F0FF 


2952 


JSR XFFFO 


; perform read cursor position into XY 


B3A2 


A900 


2953 


JB3A2 LDA $00 




B3A4 


FOEB 


2954 


BEQ JB391 


; convert integer into flp accu 






2955 










2956 


: check for non-direct mode 






2957 






B3A6 


A63A 


2958 


SB3A6 LDX Z3A 


;get program/direct flag 


B3A8 


E8 


2959 


INX 




B3A9 


DOAO 


2960 


BNE BB34B 


;lf direct. 


B3AB 


A215 


2961 


LDX $15 


; point to ILLEGAL DIRECT Error message 


B3AD 


2C 


2962 


.BY $2C 


;sklp next instruction 


B3AE 


A21B 


2963 


BB3AE LDX $1B 


; point to UNDEF'D FUNCTION Error message 


B3B0 


4C37A4 


2964 


JMP JA437 


; print error 
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2965 


;"DEF" command 








2967 










B3B3 


20E1B3 


2968 


WB3B3 


JSR 


SB3E1 


;get function name 


B3B6 


20A6B3 


2969 




JSR 


SB3A6 


; check for non-direct mode 


B3B9 


20FAAE 


2970 




JSR 


SAEFA 


;next character must be "(" 


B3BC 


A980 


2971 




LDA 


$80 




B3BE 


8510 


2972 




STA 


ZIO 


;set no integers/array elements allowed 


B3C0 


208BB0 


2973 




JSR 


SB08B 


; gather name and get pointer to variable 


B3C3 


208DAD 


2974 




JSR 


SAD8D 


; check value to be non-string 


B3C6 


20F7AE 


2975 




JSR 


SAEF7 


;next value must be ")" 


B3C9 


A9B2 


2976 




LDA 


$B2 




B3CB 


20FFAE 


2977 




JSR 


SAEFF 


;next character must be "=" 


B3CE 


48 


2978 




PHA 




;save first character of definition 


B3CF 


A548 


2979 




LDA 


Z48 


;save pointer to variable of function 


B3D1 


48 


2980 




PHA 






B3D2 


A547 


2981 




LDA 


Z47 




B3D4 


48 


2982 




PHA 






B3D5 


A57B 


2983 




LDA 


Z7B 


;save current character pointer 


B3D7 


48 


2984 




PHA 






B3D8 


A57A 


2985 




LDA 


Z7A 




B3DA 


48 


2986 




PHA 






B3DB 


20F8A8 


2987 




JSR 


JA8F8 


; execute command DATA 


B3DE 


4C4FB4 


2988 
2989 




JMP 


JB44F 


;set value for function name 






2990 


! ■ 


function name 








2991 


t 








B3E1 


A9A5 


2992 


SB3E1 


LDA $A5 


;if next character not code for FN 


B3E3 


20FFAE 


2993 




JSR 


SAEFF 


;then SYNTAX Error 


B3E6 


0980 


2994 




ORA $80 


;else set bit 7 of 


B3E8 


8510 


2995 




STA 


ZIO 


;no integers or array elements flag 


B3EA 


2092B0 


2996 




JSR 


SB092 


; gather name and get pointer to variable 


B3ED 


854E 


2997 




STA 


Z4E 


J save pointer to variable 


B3EF 


844F 


2998 




STY 


Z4F 




B3F1 


4C8DAD 


2999 
3000 




JMP 


SAD8D 


; check value to be non-string 






3001 


; expand FN call 








3002 










B3F4 


20E1B3 


3003 


JB3F4 


JSR 


SB3E1 


;get function name 


B3F7 


A54F 


3004 




LDA 


Z4F 




B3F9 


48 


3005 




PHA 




;save pointer to name on variable stack 


B3FA 


A54E 


3006 




LDA 


Z4E 




B3FC 


48 


3007 




PHA 






B3FD 


20F1AE 


3008 




JSR 


BAEFl 


;get parathensized value 


B400 


208DAD 


3009 




JSR 


SAD8D 


; check that value is non-string 


B403 


68 


3010 




PLA 






B404 


854E 


3011 




STA 


Z4E 


; restore pointer to variable name 


B406 


68 


3012 




PLA 






B407 


854F 


3013 




STA 


Z4F 




B409 


A002 


3014 




LDY 


$02 




B40B 


B14E 


3015 




LDA 


(Z4E),Y 


;get index to variable 


B40D 


8547 


3016 




STA 


Z47 


; save pointer to formal parameters 


B40r 


AA 


3017 




TAX 






B410 


C8 


3018 




INY 






B411 


B14E 


3019 




LDA 


(Z4E),Y 


;high byte also 


B413 


F099 


3020 




BEQ 


BB3AE 


;if data byte + 3 is zero, fatal error 


B415 


8548 


3021 




STA 


Z48 




B417 


C8 


3022 




INY 






B418 


B147 


3023 


BB418 


LDA 


(Z47),Y 


;save formal parameters on stack 


B41A 


48 


3024 




PHA 






B41B 


88 


3025 




DEY 
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lOFA 


3026 


BPL BB418 


B41E 


A A Aft 


3027 


LDY Z48 


B420 




3028 


TCI} ^R'RD4 


B423 


A57B 




TTlA 7711 


B425 


48 




PHA 


B426 


A57A 




T TlA 77 A 


B428 


48 




PHA 


B429 


B14E 




TTIA ^7Al?'N V 
LiUA ^ £(Hri y ) I 


B42B 


857A 




CTA 77a 
alA ill A 


B42D 


C8 




THY 


B42E 


B14E 


3036 




B430 


857B 


jU J / 


QTA 7711 
Si A ttl a 


B432 


A548 


3038 


LUA £i40 


B434 


48 




PHA 


B435 


A547 




T T\A 7A7 


B437 


48 


3041 


rnA 


B438 


208AAD 


3042 


TCD CATlftA 


B43B 


68 


3043 


PLA 


B43C 


85 4E 


3044 


OTA 1 Lt! 


B43E 


68 


3045 


PLA 


B43F 


854F 


3046 


STA itHr 


B441 


207900 


3047 


JSR xuu/y 


B444 


F003 


3048 


BEQ BB449 


B446 


4C08AF 


3049 


JMP JAF08 






3050 


> 


B449 


68 


3051 


n hA a Q "DT a 


B44A 


857A 


3052 


CTA 77a 
blA ill A 


B44C 


00 


3053 


FLA 


B44D 


01711 


3054 


CTA 77R 


B44F 


AUUU 


3055 


iikLLv 1 dy ^00 

^ AH "T f J-ii-' L V w 


D'tjL 


DO 


3056 


PLA 




Q1 At? 


3057 


CTA r74F^ Y 


n/i RA 


OO 


3058 


PLA 




uo 


3059 


INY 




914E 




CT A / 7A5' Y 

OlA V ilHCl) y 1 


hA f^Q 
D<» JO 


DO 


jUOi 


PT A 


hA 


PQ 
Lo 


JUDZ 


INY 


B45A 


914E 


3063 




B45C 


68 


3064 


PLA 


B45D 


C8 


3065 


INY 


B45E 


914E 


3066 


STA (Z4E),Y 


B460 


68 


3067 


PLA 


B461 


C8 


3068 


INY 


B462 


914E 


3069 


STA (Z4E),Y 


B464 


60 


3070 


RTS 



;get pointer to formal parameters in XY 
; store flp accu Into formal parameters 

;save current character pointer on stack 

;move current pointer of definition 
;into current character pointer 



;get next non-string value 

;set pointer to formal parameters 

;get current character 
;if not zero or ":" 
; SYNTAX Error 

; restore current character pointer 

;and restore formal parameters 
;set index into variable 

;save stack into variable, byte + 
;byte + 1 
;byte + 2 
;byte + 3 
;byte + 4 
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3072 


;"STR$" command 








3073 








BA65 


208DAD 


3074 


WB465 JSR 


SAD8D 


;check if parameter non-string 


B468 


AOOO 


3075 


LDY 


$00 


; start output area at $00FF 


B46A 


20DFBD 


3076 


JSR 


SBDDF 


; convert to string 


B46D 


68 


3077 


PLA 




; remove own return address 


B46E 


68 


3078 


PLA 






B46F 


A9FF 


3079 


JB46F LDA $FF 


;set AY to point to string 


B471 


AOOO 


3080 


LDY 


$00 


;on bottom of stack 


B473 


F012 


3081 


BEQ 


SB487 


;get description of constant string 


B475 


A664 


3082 


SB475 LDX 


Z64 


;move pointer to string description 


B477 


A465 


3083 


LDY 


Z65 




B479 


8650 


3084 


STX 


Z50 


;into Z50/Z51 


B47B 


8451 


3085 
3086 


STY 

f 


Z51 








3087 


;allocate 


area ; 


according to A 






3088 








B47D 


20F4B4 


3089 


SB47D JSR 


SB4F4 


; allocate area 


B480 


8662 


3090 


STX 


Z62 


; store pointer 


B482 


8463 


3091 


STY 


Z63 




B484 


8561 


3092 


STA 


Z61 


; store length 


B486 


60 


3093 


RTS 











3095 


;get description o: 






3096 








B487 


A222 


3097 


SB487 


LDX 




B489 


8507 


3098 




STX 


Z07 


B48B 


8608 


3099 




STX 


Z08 


B48D 


856F 


3100 


SB48D 


STA 


Z6F 


B48F 


8470 


3101 




STY 


Z70 


B491 


8562 


3102 




STA 


Z62 


B493 


8463 


3103 




STY 


Z63 


B495 


AOFF 


3104 




LDY 


$FF 


B497 


C8 


3105 


BB497 


INY 




B493 


B16F 


3106 




LDA (Z6F),Y 


B49A 


FOOC 


3107 




BEQ 


BB4A8 


B49C 


C507 


3108 




CMP 


207 


B49E 


F004 


3109 




BEQ 


BB4A4 


B4A0 


C508 


3110 




CMP 


Z08 


B4A2 


D0F3 


3111 






BB497 


B4A4 


C922 


3112 


BB4A4 


CMP 




B4A6 


FOOl 


3113 




BEQ 


BB4A9 


B4A8 


18 


3114 


BB4A8 


CLC 




B4A9 


8461 


3115 


BB4A9 


STY 


Z61 


B4AB 


98 


3116 




TYA 




B4AC 


656F 


3117 




ADC 


Z6F 


B4AE 


8571 


3118 




STA 


Z71 


B4B0 


A670 


3119 




LDX 


Z70 


B4B2 


9001 


3120 




BCC 


BB4B5 


B4b4 


E8 


3121 




INX 




B4B5 


8672 


3122 


BB4B5 


STX 


Z72 


B4B7 


A570 


3123 




LDA 


Z70 


B4B9 


F004 


3124 




BEQ 


BB4BF 


B4BB 


C902 


3125 




CMP 


$02 


B4BD 


DOOB 


3126 




BNE 


BB4CA 


B4BF 


98 


3127 


BB4BF 


TYA 




B4C0 


2075B4 


3128 




JSR 


SB475 


B4C3 


A66F 


3129 




LDX 


Z6F 


B4C5 


A470 


3130 




LDY 


Z70 


B4C7 


2088B6 


3131 




JSR 


SB688 



constant string into flp accu 
;set both termintors 

; store pointer to beginning of string 
;ln temporary pointer 
;and in flp accu 

; Initialize string index 

;get next character 
;if zero 

;or first terminator, 

;or second terminator, then end found 
;if terminator = quote 

;save length 

;and set pointer beyond string 

;lf from statement in Direct mode, 

;get length 
; allocate area 

;save pointer to it 
;move string into it 
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3133 


;save 


descriptor 


from Z61-Z63 to descriptor stack 






3134 


> 








B4CA 


A616 


3135 


BB4CA LDX 


Z16 


;get descriptor stack index 


B4CC 


E022 


3136 




CPX 


<Z22 


;if at $22 


B4CE 


D005 


3137 




BNE 


BB4D5 




B4D0 


A219 


3138 




LDX $19 


; point to FORMULA TOO COMPLEX Error 


B4D2 


4C37A4 


3139 


BB4D2 


JMP 


JA437 


; print error 


B4D5 


A561 


3140 


BB4D5 


LDA 


Z61 


;else move descriptor 


B4D7 


9500 


3141 




STA 


ZOO.X 


;to descriptor stack 


B4D9 


A562 


3142 




LDA 


Z62 




B4DB 


9501 


3143 




STA ZOl.X 




B4DD 


A563 


3144 




LDA 


Z63 




B4DF 


9502 


3145 




STA 


Z02,X 




B4E1 


AOOO 


3146 




LDY 


$00 


;set pointer to descriptor 


B4E3 


8664 


3147 




STX 


Z64 


;ln flp accu 


B4E5 


8465 


3148 




STY 


Z65 




B4E7 


8470 


3149 




STY 


Z70 


; clear guard bit 


B4E9 


88 


3150 




DEY 






B4EA 


840D 


3151 




STY 


ZOD 


;set string flag 


B4EC 


8617 


3152 




STX 


Z17 


;set previous descriptor stack index 


B4EE 


E8 


3153 




INX 






B4EF 


E8 


3154 




INX 






B4F0 


E8 


3155 




INX 






B4F1 


8616 


3156 




STX 


Z16 


;set new descriptor stack index 


B4F3 


60 


3157 




RTS 
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3159 


; allocate 


t of bytes in A 








3160 












B4F4 


460F 


3161 


SB4F4 


LSR 


ZOF 


; clear error flag 




B4F6 


48 


3162 


BB4F6 


PHA 




;save length 




B4F7 


49FF 


3163 




EOR 


$FF 






B4F9 


38 


3164 




SEC 








B4FA 


6533 


3165 




ADC 


Z33 


; subtract length from string storage ptr 


B4FC 


A434 


3166 




LDY 


Z34 






B4FE 


BOOl 


3157 




BCS 


BB501 






B500 


88 


3168 




DEY 




;high byte also 




B501 


C432 


3169 


BB501 


CPY 


Z32 


;if above 




B503 


9011 


3170 




BCC 


BB516 


; array area 




B505 


D004 


3171 




BNE 


BB50B 






B507 


C531 


3172 




CMP 


Z31 






B509 


900B 


3173 




BCC 


BB516 






B50B 


8533 


3174 


BB50B 


STA 


Z33 


;set new string storage pointer 




B50D 


8434 


3175 




STY 


Z34 






B50F 


8535 


3176 




STA 


Z35 


;set utility string pointer also 




B511 


8436 


3177 




STY 


Z36 






B513 


AA 


3178 




TAX 




;and set AX 




B514 


68 


3179 




PLA 




; restore length 




B515 


60 


3180 
3181 


> 


RTS 








B516 


A210 


3182 


BB516 LDX $10 






B518 


A50F 


3183 




LDA 


ZOF 


;if no memory left 




B51A 


30B6 


3184 




BMI 


BB4D2 


; print OUT OF MEMORY Error 




B51C 


2026B5 


3185 




JSR SB526 


;else perform garbage clean-up 




B51F 


A980 


3186 




LDA $80 






B521 


850F 


3187 




STA 


ZOF 


; clear flag 




B523 


68 


3188 




PLA 




;restore # bytes to allocate 




B524 


DODO 


3189 
3190 




BNE 


BB4F6 


;and perform allocation 








3191 


; string garbage 


clean-up 








3192 












B526 


A637 


3193 


SB526 


LDX 


Z37 


;get memory limit 




B528 


A538 


3194 




LDA 


Z38 






B52A 


8633 


3195 


JB52A 


STX 


Z33 


;set new string storage pointer 




B52C 


8534 


3196 




STA 


Z34 






B52E 


AOOO 


3197 




LDY 


$00 


;set no descriptor of highest text 


yet 


B530 


844F 


3198 




STY 


Z4F 






B532 


844E 


3199 




STY 


Z4E 






B534 


A531 


3200 




LDA 


Z31 


;get end of array area 




B536 


A632 


3201 




LDX 


Z32 






B538 


855F 


3202 




STA 


Z5F 


; initialize value for highest text 


ptr 


B53A 


8660 


3203 




STX 


Z60 






B53C 


A919 


3204 




LDA 


<Z19 


;AX = ptr to bottom of descriptor s 


stack 


B53E 


A200 


3205 




LDX 


>Z19 






B540 


8522 


3206 




STA 


Z22 


;and store in temporary pointer 




B542 


8623 


3207 




STX 


Z23 






B544 


C516 


3208 


BB544 


CMP 


Z16 






B546 


F005 


3209 




BEQ 


BB54D 


;lf not top index of descriptor stack 


B548 


20C7B5 


3210 




JSR 


SB5C7 


;find highest text area 




B54B 


F0F7 


3211 




BEQ 


BB544 






B54D 


A907 


3212 


B654D LDA 


$07 


;set step to 7 




B54F 


8553 


3213 




STA 


Z53 






B551 


A52D 


3214 




LDA 


Z2D 


;move pointer to name table 




B553 


A62E 


3215 




LDX 


Z2E 






B555 


8522 


3216 




STA 


Z22 


;lnto temporary pointer 




B557 


8623 


3217 




STX 


Z23 






B559 


E430 


3218 


BB559 


CPX 


Z30 
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B55B 


D004 


3219 




BNE BB561 


B55D 


C52F 


3220 




CMP Z2F 


B55F 


F005 


3221 




BEQ BB566 


B561 


?nRnB'i 


3222 


BB561 


JSR SB5BD 


3564 


F0F3 


3223 




BEQ BB559 


B566 


8558 


3224 


BB566 


STA Z58 


B568 


8659 


3225 




SIX Z59 


D JDA 




3226 




LDA $03 




8553 


3227 




STA Z53 


B56E 


A558 


3228 


BB56E 


LDA Z58 


B570 


A659 


3229 




LDX Z59 


B572 


E432 


3230 


BB572 


CPX Z32 


B574 


D007 


3231 




BNE BB57D 


B576 


C531 


3232 




CMP Z31 


B578 


D003 


3233 




BNE BB57D 


B57A 4C06B6 


3234 




JMP JB606 


B57D 


8522 


3235 


BB57D 


STA Z22 


B57F 


8623 


3236 




STX Z23 


B581 


AOOO 


3237 




LDY $00 


B583 


B122 


3238 




LDA (Z22) ,Y 


B585 


AA 


3239 




TAX 


B585 


C8 


3240 




INY 


B587 


B122 


3241 






B589 


08 


3242 




PHP 


B58A 


C8 


3243 




INY 


B58B 


B122 


3244 




LDA (Z22) ,Y 


B58D 


5558 


3245 




ADC Z58 


B58F 


8558 


3246 




STA Z58 


B591 


C8 


3247 




INY 


B592 


IS iZZ 


3248 




LDA (Z22) ,Y 


B594 


6559 


3249 




Anr 759 

C\U\^ Ct J ^ 


B596 


8559 


3250 




STA Z59 


B598 


28 


3251 




PLP 


B599 


10D3 


3252 




RPT RR56E 


B59B 


8A 


3253 




TXA 


B59C 


30D0 


3254 




BMI BB56E 


B59E 


C8 


3255 




INY 


B59F 


B122 


3256 




LDA (Z22) ,Y 


B5A1 


AOOO 


3257 




LDY $00 


B5A3 


OA 


3258 




ASL A 


B5A4 


6905 


3259 




ADC $05 


B5A6 


6522 


3260 




ADC Z22 


B5A8 


8522 


3261 




STA Z22 


B5AA 


9002 


3262 




BCC BB5AE 


B5AC 


E623 


3263 




INC Z23 


B5AE 


A623 


3264 


BB5AE 


LDX Z23 


B5B0 


E459 


3265 


BB5B0 


CPX Z59 


B5B2 


D004 


3266 




BNE BB5B8 


B5B4 


C558 


3267 




CMP Z58 


B5B6 


FOBA 


3268 




BEQ BB572 


B5B8 


20C7B5 


3269 


BB5B8 


JSR SB5C7 


B5BB 


F0F3 


3270 




BEQ BB5B0 



;lf end of name table 
;not reached yet 

;£lnd highest text area 

;save pointer into array area 

; reset step to 3 

;get pointer to next array 



;i£ end of array area 



;move text area 

;else save array pointer 

;into temporary pointer 

;save first character of name 



;save status of second character of name 
;add length of array 
;to array pointer 



;high byte also 

; second character of variable name 
;must have bit 7 set for string 
; first character of variable name 
;must have bit 7 low for string 

;get # of dimensions 

;and initialize Y 

; compute offset to first element 



; point to first element 



;if not pointing beyond last element 



;find highest text address 
;and repeat for next address 
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3272 


: check string pointed to by Z22/Z23 






3273 


;as being highest s 


string area outside allocated area 






3274 








B5BD 


B122 


3275 


SB5BD LDA (Z22),Y 


;if name has bit 7 of first char = 


B5BF 


3035 


3276 


BMI 


BB5F6 




B5C1 


C8 


■3077 


INY 






B5C2 


BI22 


3278 


LDA (Z22),Y 


;and bit 7 of second character = 1 


B5C4 


1030 


3279 


BPL 


BB5F6 




B5C6 


C8 


3280 
3281 


INY 




;drop thru 






3282 


; check string Indexed by descriptor 






3283 


;for being highest 


string area 






3284 


;outside of allocated area 






3285 








B5C7 


B122 


3286 


SB5C7 LDA (Z22),Y 


;if length =■ 


B5C9 


F02B 


3287 


BEQ BB5F6 


;then no text area 


B5CB 


C8 


3288 


INY 






B5CC 


B122 


3289 


LDA (Z22),Y 




B5CE 


AA 


3290 


TAX 




;get pointer to text into AX 


B5CF 


C8 


3291 


INY 






B5D0 


B122 


3292 


LDA (Z22),Y 




B5D2 


C534 


3293 


CMP 


Z34 


;if pointer is 


B5D4 


9006 


3294 


BCC 


BB5DC 


; above string storage area 


B5D6 


DOIE 


3295 


BNE 


BB5F6 




B5D8 


E433 


3296 


CPX 


Z33 




B5DA 


BOIA 


3297 


BCS 


BB5F6 


;then string is not highest 


B5DC 


C560 


3298 


BB5DC CMP 


Z60 


;if pointer is 


B5DE 


9016 


3299 


BCC 


BB5F6 


; below previous highest 


B5E0 


D004 


3300 


BNE 


BB5E6 




B5E2 


E45F 


3301 


CPX 


Z5F 




B5E4 


9010 


3302 


BCC 


BB5F6 


;then not highest 


B5E6 


86 5F 


3303 


BB5E5 STX 


Z5F 




B5E8 


8560 


3304 


STA 


Z60 


;save pointer to new highest 


B5EA 


A522 


3305 


LDA 


Z22 




B5EC 


A623 


3306 


LDX 


Z23 


;get pointer to variable or descriptor 


B5EE 


854E 


3307 


STA 


Z4E 




B5F0 


864F 


3308 


STX 


Z4F 


;save pointer to winner 


B5F2 


A553 


3309 


LDA 


Z53 


; save step size of winner 


B5FA 


8555 


3310 


STA 


Z55 




B5F6 


A553 


3311 


BB5F6 LDA 


Z53 


;add step 


B5F8 


18 


3312 


CLC 






B5F9 


6522 


3313 


ADC 


Z22 


;to variable or descriptor pointer 


B5FB 


8522 


3314 


STA 


Z22 




B5FD 


9002 


3315 


BCC 


BB601 




B5FF 


E623 


3316 


INC 


Z23 




B601 


A623 


3317 


BB601 LDX 


Z23 


;variable or descriptor pointer in AX 


B603 


AOOO 


3318 


LDY $00 




B605 


50 


3319 


RTS 
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3321 ; continuation of string garbage clean-up 







3322 ; 








B606 


A54F 


3323 JB606 


LDA 


Z4F 


;if no pointer to descriptor 


B608 


054E 


3324 


ORA 


Z4E 


;of highest string yet, 


B60A 


F0F5 


3325 


BEQ 


BB601 


; return 


B60C 


A555 


3326 


LDA 


Z55 




B60E 


2904 


3327 


AND 


$04 


; compute offset to descriptor 


B610 


4A 


3328 


LSR 


A 




B611 


A8 


3329 


TAY 






B612 


8555 


3330 


STA 


Z55 




B614 


B14E 


3331 


LDA 


(Z4E),Y 


;get length of text 


B616 


655F 


3332 


ADC 


Z5F 


;add to pointer to beginning of text 


B618 


855A 


3333 


STA 


Z5A 


; store in high limit for move routine 


B51A 


A560 


3334 


LDA 


Z60 


;hlgh bytes also 


B61C 


6900 


3335 


ADC 


$00 




B61E 


855B 


3336 


STA 


Z5B 




B620 


A533 


3337 


LDA 


Z33 


;move current string storage pointer 


B622 


A634 


3338 


LDX 


Z34 




B624 


8558 


3339 


STA 


Z58 


;into high limit of output for move 


B626 


8659 


3340 


SIX 


Z59 




B528 


20BFA3 


3341 


JSR 


SA3BF 


;move bytes 


B62B 


A455 


3342 


LDY 


Z55 


;get offset to descriptor 


B62D 


C8 


3343 


INY 






B62E 


A558 


3344 


LDA 


Z58 




B630 


914E 


3345 


STA 


(Z4E),Y 


;let descriptor point to moved text area 


B632 


AA 


3346 


TAX 






B633 


E659 


3347 


INC 


Z59 




B635 


A559 


3348 


LDA 


Z59 




B637 


C8 


3349 


INY 






B638 


914E 


3350 


STA 


(Z4E),Y 


;high byte also 


B63A 


4C2AB5 


3351 


JMP 


JB52A 


;repeat for next string 



3353 ;diadic operator ■ 

3354 ; 



B63D 


A565 


3355 


JB63D 


LDA 


Z65 


B63F 


48 


3356 




PHA 




B640 


A564 


3357 




LDA 


Z64 


B642 


48 


3358 




PHA 




B643 


2083AE 


3359 




JSR 


SAE83 


B646 


208FAD 


3360 




JSR 


SAD8F 


B649 


68 


3361 




PLA 




B64A 


856F 


3362 




STA 


Z6F 


B54C 


68 


3363 




PLA 




B64D 


8570 


3364 




STA 


Z70 


B64F 


AOOO 


3365 




LDY 


$00 


B651 


B16F 


3366 




LDA 


(Z6F),Y 


B553 


18 


3367 




CLC 




B654 


7164 


3358 




ADC 


(Z64) ,Y 


B656 


9005 


3369 




BCC 


BB65D 


B658 


A217 


3370 




LDX 


$17 


B65A 


4C37A4 


3371 
3372 


; 


JMP 


JA437 


B65D 


207 5B4 


3373 


BB65D 


JSR 


SB475 


B660 


207AB6 


3374 




JSR 


SB67A 


B663 


A550 


3375 




LDA 


Z50 


B665 


A451 


3376 




LDY 


Z51 


B667 


20AAB6 


3377 




JSR 


SB6AA 


B66A 


208CB6 


3378 




JSR 


SB68C 


B66D 


A56F 


3379 




LDA 


Z6F 


B66F 


A470 


3380 




LDY 


Z70 


B671 


20AAB6 


3381 




JSR 


SB6AA 


B674 


20CAB4 


3382 




JSR 


BB4CA 


B677 


4CB8AD 


3383 




JMP 


JADB8 



for strings 



;save pointer to left operand 

;get value of next operand in flp 
;must be string 



;restore temporary string address 

;get length of left operand 

;add length of right operand 
;if =■> 256 

; point to STRING TOO LONG Error 
; print error 

;allocate area for sum of lengths 
;move left operand 

;get descriptor of right operand 
; de-allocate old area 
;move right operand 



; de-allocate old area 

;save descriptor on stack 

;go back to expression evaluation 
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3385 


;move 


string with descriptor pointed by Z6F/Z70 






3386 


;into 


last allocated 


area 






3387 








B67A 


AOOO 


3388 


SB67A LDY $00 




B67C 


B16F 


3389 




LDA (Z6F),Y 




B67E 


48 


3390 




PHA 


;save length from descriptor 


B67F 


C8 


3391 




INY 




B680 


B16F 


3392 




LDA (Z6F),Y 




B682 


AA 






TAX 


; pointer from descriptor 


B683 


C8 


3394 




INY 




B684 


B16F 


3395 




LDA (Z6F),Y 




B686 


A8 


3396 




TAY 


;into XY 


B687 


68 


3397 
3398 


f 


FLA 


; length into A 






3399 


;move 


string with length in A, pointer in XY 






3400 


;lato 


last allocated 


area 






3401 


> 






B688 


8622 


3402 


SB688 


STX Z22 


;save pointer in temporary pointer area 


B68A 


8423 


3403 




STY Z23 




B68C 


A8 


3404 


SB68C 


TAY 


;if length = 


B68D 


FOOA 


3405 




BEQ BB699 


; don't move 


B68F 


48 


3406 




PHA 


;save length 


B690 


88 


3407 


BB690 


DEY 


; for every character 


B691 


B122 


3408 




LDA (Z22),Y 


;move from string 


B693 


9135 


3409 




STA (Z35),Y 


;to last allocated area 


B695 


98 


3410 




TYA 




Dbyo 


D0F8 


^/i 1 1 

J41 1 




BNE BB690 


;until no more characters 




Aft 

DO 






PLA 


;restore length 


B699 


18 


3413 


BB699 


CLC 


;set Z35/Z36 to end of allocated area 


B69A 


6535 


3414 




ADC Z35 




B69C 


8535 


3415 




STA Z35 




B69E 


9002 


3416 




BCC BB6A2 




B6A0 


E636 


3417 




INC Z36 




B6A2 


60 


3418 


BB6A2 


RTS 
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B6A3 
B6A6 
B6A8 
B6AA 
B6AC 
B6AE 
B6B1 
B6B2 
B6B4 
B6B6 
B6B7 
B6B8 
B6BA 
B6BB 
B6BC 
B6BE 
B5BF 
B6C0 
B6C1 
B6C3 
B5C5 
B6C7 
B5C9 
B6CB 
B6CC 
B6CD 
B6CF 
B6D1 
B6D3 
B6D5 
B5D6 
B6D8 
B6DA 



2 08 FAD 

A564 

A465 

8522 

8423 

20DBB6 

08 

AOOO 
B122 
48 
C8 

B122 

AA 

C8 

B122 
A8 
68 
28 

D013 

C434 

DOOF 

E433 

DOOB 

48 

18 

6533 
8533 
9002 
E634 
68 

8622 
8423 
60 



B6DB C418 
B6DD DOOC 
B6DF C517 
B6E1 D008 
B6E3 8516 
B6E5 E903 
B6E7 8517 
B6E9 AOOO 
B6EB 60 



3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 



;de-allocate a temporary string 



SB6A3 JSR SAD8F 
SB6A6 LDA Z64 

LDY Z65 
SB6AA STA Z22 

STY Z23 

JSR SB6DB 

PHP 

LDY $00 
LDA (Z22),Y 
PHA 
INY 

LDA (Z22),Y 

TAX 

INY 

LDA {Z22),Y 

TAY 

PLA 

PLP 

BNE BB6D6 
CPY Z34 
BNE BB6D6 
CPX Z33 
BNE BB6D6 
PHA 
CLC 

ADC Z33 
STA Z33 
BCC BB6D5 
INC Z34 
BB6D5 PLA 
BB6D6 STX Z22 
STY Z23 
RTS 



; check If value Is a string 

;set AY to pointer to descriptor 
;and store in temporary pointer 

; check descriptor stack 

;save status (Z=l when desc on stack) 



;save string length 

; pointer to string In XY 



; string length into A 
; restore status 

; branch If descriptor on stack 
;lf pointer to string 

;= string storage pointer 

;save length 

;add length to string storage pointer 
;to form new string storage pointer 
; (de-allocates string) 

;restore length 

;save pointer to string 



; check descriptor stack 



SB6DB CPY Z18 

BNE BB6EB 
CMP ZI7 
BNE BB6EB 
STA Z16 
SBC $03 
STA Z17 
LDY $00 

BB6EB RTS 



;lf descriptor pointer 

;same as previous descriptor stack ptr 

;then set descriptor stack index 
;to point to it 

;set previous descriptor index below it 
; leave new descriptor pointer In AY 
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3468 ;"CHR$" command 

3469 ; 



B5EC 


20A1B7 


3470 


WB6EC 


JSR 


SB7A1 


B6EF 


8A 


3471 




TXA 




B5F0 


48 


3472 




PHA 




B6F1 


A901 


3473 




LDA $01 


B6F3 


207DB4 


3474 




JSR 


SB47D 


B5F6 


68 


3475 




PLA 




B6F7 


AOOO 


3476 




LDY $00 


B6F9 


9162 


3477 




STA (Z62),Y 


B6FB 


68 


3478 




PLA 




B6FC 


68 


3479 




PLA 




B6FD 


4CCAB4 


3480 
3481 




JMP 


BB4CA 






3482 


;"LEFT$" command 






3483 








B700 


2051B7 


3484 


VfB700 


JSR 


SB751 


B703 


D150 


3485 




CMP 


(Z50),Y 


B705 


98 


3486 




TYA 




B706 


9004 


3487 


JB706 


BCC 


BB70C 


B708 


B150 


3488 




LDA 


(Z50),Y 


B70A 


AA 


3489 




TAX 




B70B 


98 


3490 




TYA 




B70C 


48 


3491 


BB70C 


PHA 




B70D 


8A 


3492 


BB70D 


TXA 




B70E 


48 


3493 


BB70E 


PHA 




B70F 


207DB4 


3494 




JSR 


SB47D 


B712 


A550 


3495 




LDA 


Z50 


B714 


A451 


3496 




LDY 


Z51 


B716 


20AAB6 


3497 




JSR 


SB6AA 


B719 


68 


3498 




PLA 




B71A A8 


3499 




TAY 




B71B 


68 


3500 




PLA 




B71C 


18 


3501 




CLC 




B71D 


6522 


3502 




ADC 


Z22 


B71F 


8522 


3503 




STA 


Z22 


B721 


9002 


3504 




BCC 


BB725 


B723 


E623 


3505 




INC 


Z23 


B725 


98 


3506 


BB725 


TYA 




B726 208.CB6 


3507 




JSR 


SB68C 


B729 


4CCAB4 


3508 
3509 


* 


JMP 


BB4CA 






3510 


; "RIGHTS" 


command 






3511 








B72C 


2061B7 


3512 


WB72C 


JSR 


SB761 


B72F 


18 


3513 




CLC 




B730 


F150 


3514 




SBC 


(Z50),Y 


B732 


49FF 


3515 




EOR 


$FF 


B734 


4C06B7 


3516 




JMP 


JB706 



;get integer paramentet Into X 

;and save 
;set length 
;allocate area 
; restore integer 



; remove own return address 

jsave descriptor on descriptor stack 



;get 2 parameters 

; compare length wanted to stack length 

;A = initial index in text 

;i£ length requested >= string length 

;use string length instead 

;save initial index 
;get length wanted 
;and save it 
;de-allocate area 

;set AY to point to first parameter 
; de-allocate temporary string 
;restore length requested 

; restore initial index in text 

;add to text pointer 



;for length requested, 

;move string into allocated area 

;save descriptor on descriptor stack 



;get 2 parameters 

; compute length - length requested 
;go do tail end of LEFI$ 



;save character in allocated area 
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3518 ;"MID$" command 







3519 


* 






B737 


A9FF 


3520 WB737 


LDA $FF 


;set default 3rd parameter to 255 


B739 


8565 


3521 




STA Z65 




B73B 


207900 


3522 




JSR X0079 


;get current character 


B73E 


C929 


3523 




CMP ') 


;lf not ••)•■ 


B740 


F006 


3524 




BEQ BB748 




B742 


20FDAE 


3525 




JSR SAEFD 


;must be 


B745 


209EB7 


3526 




JSR SB79E 


;get next Integer 


B748 


2061B7 


3527 


BB7-48 


JSR SB761 


;get first 2 parameters 


B74B 


F04B 


3528 




BEQ BB798 


;if 2nd parameter - 0, ILLEGAL QUANTITY 


B74D 


CA 


3529 




DEX 


; decrement index 


B74E 


8A 


3530 




TXA 




B74F 


48 


3531 




PHA 


;and save It on stack 


B750 


18 


3532 




CLC 




B751 


A200 


3533 




LDX $00 




B753 


F150 


3534 




SBC (Z50),Y 


; compute index - length 


B755 


B0B6 


3535 




BCS BB70D 


;if larger, get null string 


B757 


49FF 


3536 




EOR $FF 


;if t characters remaining 


B759 


C565 


3537 




CMP Z65 




B75B 


90B1 


3538 




BCC BB70E 


;less than 3rd parameter. 


B75D 


A565 


3539 




LDA Z65 


;take f of characters remaining instead 


B75F 


BOAD 


3540 
3541 


t 


BCS BB70E 


;do tall end of LEFT$ 






3542 


;8et 


first two prameters for LEFT$, RIGHT$ and MID$ 






3543 


> 






B761 


20F7AE 


3544 


SB761 


JSR SAEF7 


;next character must be ")" 


B764 


68 


3545 




PLA 




B765 


AS 


3546 




TAY 


; save return address 


B766 


68 


3547 




PLA 




B767 


8555 


3548 




STA Z55 




B769 


68 


3549 




PLA 


; remove return address 


B76A 


63 


3550 




PLA 




B76B 


68 


3551 




PLA 


; restore 2nd parameter (integer) 


B76C 


AA 


3552 




TAX 




B76D 


68 


3553 




PLA 




B76E 


8550 


3554 




STA Z50 


;move 1st parameter (ptr to descriptor) 


B770 


68 


3555 




PLA 


;lnto Z50/Z51 


B771 


8551 


3556 




STA Z51 




B773 


A555 


3557 




LDA Z55 




B775 


48 


3558 




PHA 


; restore return address 


B776 


98 


3559 




T¥A 




B777 


48 


3560 




PHA 




B778 


AOOO 


3561 




LDY $00 




B77A 


8A 


3562 




TXA 


;set flags according to 2nd parameter 


B77B 


60 


3563 




RTS 









3565 


; "LEN 


" command 






3566 






■R77r 


t,\JO^ol 


3567 


WB77C 


JSR SB782 


Dl /r 


4CA2B3 


3568 




JMP JB3A2 






3569 








on A 111 A 




33782 




B785 


A200 


T^7 1 




T nY con 


B/o / 


860D 


J J / £. 








Ao 


3573 




TAY 




60 


3574 




RTS 






^S7S 

J J/ J 










3576 


; "ASC 


" c ommand 






3577 


y 




B78B 


2082B7 


3578 


WB78B 


JSR SB782 


B78E 


F008 


3579 




BEQ BB798 


B790 


AOOO 


3580 




LDY $00 


T*7Q9 


BI22 


3581 




LDA (Z22),Y 


Ii70/i 

B/y'j 


AQ 

Ao 






TAY 


B795 


4CA2B3 






JMP JB3A2 












B798 


4C48B2 


3585 


BB798 


JMP JB248 






3586 










3587 


; fetch integer val 






3588 






B79B 


207300 


3589 


SB79B 


JSR X0073 


B79E 


208AAD 


3590 


SB79E 


JSR SAD8A 


B7A1 


20B8B1 


3591 


SB7A1 


JSR SB1B8 


B7A4 


A664 


3592 




LDX Z64 


B7A6 


DOFO 


3593 




BNE BB798 


B7A8 


A665 


3594 




LDX Z65 


B7AA 4C7900 


3595 




JMP X0079 



; de-allocate parameter, get length in Y 
; convert integer In Y to flp 

;de-allocate temp string (parameter) 

;reset string flag 
;move length to Y 



;de-allocate parameter, get length in Y 
;lf null string, ILLEGAL QUANTITY Error 

;get first character of string 
;move into Y 

; convert integer in Y to flp 

; print error 

in X and check range 

;get next character 

;get next non-string value 

;cQnvert positive flp accu to Integer 

;if not In range - 255 

; print error ILLEGAL QUANTITY 

;load value into X 

;get current character again and return 
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3597 ; "VAL" command 

3598 ; 

B7AD 2082B7 3599 WB7AD JSR SB782 ; de-allocate parameter, get length in Y 

B7B0 D003 3600 BNE BB7B5 ;if length zero, 

B7B2 4CF7B8 3601 JMP JB8F7 ;set result zero 

B7B5 A67A 3602 BB7B5 LDX Z7A ;move current character pointer 

B7B7 A47B 3603 LDY Z7B 

B7b9 8671 3604 SIX Z71 ;to temporary pointer 
B7BB 8472 3605 STY Z72 

B7BD A622 3606 LDX Z22 ;move low byte of text pointer 

B7BF 867A 3607 SIX Z7A ;into current character pointer 
B7C1 18 3608 CLC 

B7C2 6522 3609 ADC Z22 ;add length 

B7C4 8524 3610 STA Z24 ;to create pointer to end of string 

B7C6 A623 3611 LDX Z23 ;move high byte of text pointer 

B7C8 867B 3612 STX Z7B ;lnto high byte of current character ptr 
B7CA 9001 3613 BCC BB7CD 

B7CC E8 3614 INX ;add carry of length 

B7CD 8625 3615 BB7CD STX Z25 ;set high byte of ptr to end of string 
B7CF AOOO 3616 LDY $00 

B7D1 B124 3617 LDA (Z24),Y ;get first byte beyond string 

B7D3 48 3618 PHA ;and save it on stack 
B7D4 98 3619 TYA 

B7D5 9124 3620 STA (Z24),Y ;set null Instead 

B7D7 207900 3621 JSR X0079 ;get current character 

B7DA 20F3BC 3622 JSR SBCF3 ;convert string to flp 

B7DD 68 3623 PLA ;restore first byte beyond string 

B7DE AOOO 3624 LDY $00 

B7E0 9124 3625 STA (Z24),Y ;and restore 

B7E2 A671 3626 SB7E2 LDX Z71 ;get new value for current character ptr 
B7E4 A472 3627 LDY Z72 

B7E6 867A 3528 STX Z7A ;and store it as current character ptr 
B7E8 847B 3629 STY Z7B 
B7EA 60 3630 RTS 

3631 ; 

3632 ;get address into Z14/Z15 and integer into X 

3633 ; 

B7EB 208AAD 3634 SB7EB JSR SAD8A ;get non-string value from statement 

B7EE 20F7B7 3635 JSR SB7F7 ; convert flp accu to Integer at Z14/Z15 

B7F1 20FDAE 3636 SB7F1 JSR SAEFD ;next character must be "," 

B7F4 4C9EB7 3637 JMP SB79E ;get next integer from statement into X 
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3639 


; convert floating 


point into integer in Z14/Z15 








3640 


> 








B7F7 


A566 


3641 


SB7F7 


LDA Z66 


;if negative 




B7F9 


309D 


3642 




BMI BB798 






B7WR 




3643 




LDA Z61 






Dt tu 


C991 


3644 




CMP $91 


J or exponent y 16 




B7FF 


B097 


3545 




BCS BB798 


;then ILLEGAL QUANTITY Error 


at Z54/Z65 


B801 








JSR SBC9B 


• convert f Ip 3ccu to integsr 


B804 




AA7 




LDA Z64 






B806 


A465 






LDY Z65 






B808 


8414 


^ AA O 
JO**? 




STY Z14 


• an A ■i ntTt roaiil t" f 1 p1 H 




B80A 


8515 


3650 




STA Z15 






B80C 


60 


3651 
3652 


> 


RTS 










3653 


;"PEEK" command 




















B80D 


A515 


^A 

JO J J 


WB80D 


LDA Z15 






B80F 


48 


3656 




PHA 






B810 


A514 


3657 




LDA Z14 


; save contents of ZI4/Z15 




B8I2 


48 


3658 




PHA 






B8I3 


ZUF /B/ 


QA 




JSR SB7F7 


jconvcirt txp sccu co mtegeir 


in Z14/Z15 


B816 


aooo 


3660 




LDY $00 






B818 


B114 


3661 




LDA (Z14),Y 


;get byte 




B81A 


A8 






TAY 






B81B 


oo 


JOOJ 




PLA 


• f->i»n T*Psl-nTP 7\U/7.\^ 




B81C 


si^^ A 
oD m 


AAA 




STA Z14 






B81E 


Aft 

DO 


3665 




PLA 






DO ir 


OJ iJ 


3666 




STA Z15 










3667 
3668 


f 


JMP JB3A2 


; convert Integer in Y to flp 








3669 


; "POKE" command 










3670 


» 








B824 


20EBB7 


3671 


WB824 


JSR SB7EB 


;get address in Z14/Z15, integer in X 


B827 


8A 


3672 




TXA 






B828 


AOOO 


3673 




LDY $00 






B82A 9114 


3674 




STA (Z14),Y 


jmove integer from X to addri 


iSS 


B82C 


60 


3675 




RTS 











3677 


; "WAIT" command 








3678 


> 




B82D 


20EBB7 


3679 


WB82D JSR SB7EB 


jget aadress in ii't/iijj incemit xu a 


B830 


8649 


3680 


STX Z49 


;save mask 


B832 


A200 


3681 


LDX $00 


; default pattern " 00 


B834 


207900 


3682 


JSR X0079 


;ge t current character 


B837 


F003 


3683 


BEQ BB83C 


; if not end of statement 


B839 


20F1B7 


3684 


JSR SB7FI 


J get next integer from statement into X 


B83C 


854A 


3685 


BB83C STX Z4A 


;save pattern 


B83E 


AOOO 


3686 


LDY $00 




B840 


B114 


3687 


BB840 LDA (Z14),Y 


;get byte 


B842 


454A 


3688 


EOR Z4A 


;Exclusive OR with pattern 


B844 


2549 


3689 


AND Z49 


;mask. 


B846 


F0F8 


3690 


BEQ BB840 


; repeat until non-zero 


B848 


60 


3691 


BB848 RTS 








3692 










3693 


:add 0.5 to flp accu (half rounding) 






3694 






B849 


A911 


3695 


SB849 LDA <TBF11 




384 B 


AOBF 


3696 


LDY >TBF11 


;set AY to point to value 0.5 


B84D 


4C67B8 


3697 


JMP SB867 


;add to flp accu 






3698 










3699 


; "MINUS" operator 








3700 






B850 


208CBA 


3701 


SB850 JSR SBA8C 


; subtract flp accu from # indexed by AY 






3702 


> 








3703 


;dladlc operator 








3704 






B853 


A566 


3705 


WB853 LDA Z66 




B855 


49FF 


3706 


EOR $FF 


; complement sign 


B857 


8566 


3707 


STA Z66 




B859 


456E 


3708 


EOR Z6E 




B85B 


856F 


3709 


STA Z6F 


;also adjust Exclusive OR of both signs 


B85D 


A561 


3710 


LDA Z51 


; fetch exponent of flp accu 


B85F 


4C6AB8 


3711 


JMP JB86A 


;go apply diadic operator "+" 
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B862 2099B9 3713 BB862 JSR SB999 
B865 903C 3714 BCC BB8A3 

3715 ; 

3716 ;add flp # indexed 

3717 ; 

B867 208CBA 3718 SB867 JSR SBA8C 

3719 ; 

3720 ;"PLUS" operator 

3721 ; 

B86A 3722 WB86A = * 

B86A D003 3723 JB86A BNE BB86F 
B86C 4CFCBB 3724 JMP SBBFC 

3725 ; 

B86F A670 3726 BB86F LDX Z70 
B871 8656 3727 SIX Z56 

B873 A269 3728 LDX $69 

B875 A569 3729 LDA Z69 

B877 A8 3730 SB877 TAY 
B878 FOCE 3731 BEQ BB848 

B87A 38 3732 SEC 
B87B E561 3733 SBC Z61 

B87D F024 3734 BEQ BB8A3 

B87F 9012 3735 BCC BB893 

B881 8461 3736 STY Z61 

B883 A46E 3737 LDY Z6E 

B885 8466 3738 STY Z56 

B887 49FF 3739 EOR $FF 

B889 6900 3740 ADC $00 

B88B AOOO 3741 LDY $00 

B88D 8456 3742 STY Z56 

B88F A261 3743 LDX $61 

B891 D004 3744 BNE BB897 

B893 AOOO 3745 BB893 LDY $00 
B895 8470 3746 STY Z70 

B897 C9F9 3747 BB897 CUP $F9 
B899 30C7 3748 BMI BB862 

B89B A8 3749 TAY 
B89C A570 3750 LDA Z70 

B89E 5601 3751 LSR ZOl ,X 

B8A0 20B0B9 3752 JSR SB9B0 

B8A3 246F 3753 BB8A3 BIT Z6F 
B8A5 1057 3754 BPL BB8FE 



;per£onii preshifts according to A 
;do addition or subtraction 

by AY to flp accu 

; perform addition 



;if flp accu = 

;move 2nd flp accu into flp accu 

save guard bit 

;X = pointer to smaller 

;get exponent of 2nd flp accu 

;if zero 

;result already in flp accu 

; compute difference in exponents 
;if zero, go act on fractions 
;if second flp accu higher 
;set exponent of result 
;and sign of result 

; two's complement of difference 

;set guard bit to for higher 
; point to smaller 

; if second flp accu lower 
;move to guard bit of lower 
;if difference more than 8 
;do preshifts 
;save number of preshifts 
;get guard bit 
;pad with zero 
;do preshifts 

;if both signs are the same 
;add fractions 
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3756 ;negate flp accu 

3757 ; 



B8A7 


A061 


3758 




LDY 


$61 


B8A9 


E059 


3759 




CPX 


$69 


B8AB 


F002 


3760 




BEQ 


BB8AF 


B8AD 


A069 


3761 




LDY 


$69 


B8AF 


38 


3762 


BB8AF 


SEC 




B8B0 


49FF 


3763 




EOR 


$FF 


B8B2 


6556 


3764 




ADC 


Z56 


B8B4 


8570 


3765 




STA 


Z70 


B8B6 


B90400 


3766 




LDA 


Z04,Y 


B8B9 


F504 


3767 




SBC 


Z04,X 


B8BB 


8565 


3768 




STA 


Z65 


B8BD 


B90300 


3769 




LDA 


Z03,Y 


B8C0 


F503 


3770 




SBC 


Z03,X 


B8C2 


8564 


3771 




STA 


Z64 


B8C4 


B90200 


3772 




LDA 


Z02,Y 


B8C7 


F502 


3773 




SBC 


Z02,X 


B8C9 


8563 


3774 




STA 


Z63 


B8CB 


B90100 


3775 




LDA 


ZOl.Y 


BBCE 


F501 


3776 




SBC 


ZOl.X 


B8D0 


8562 


3777 




STA 


Z62 


B8D2 


B003 


3778 


JB8D2 


BCS 


BB8D7 


B8D4 


2047B9 


3779 




JSR 


SB947 


B8D7 


AOOO 


3780 


BB8D7 


LDY 


$00 


B8D9 


98 


3781 




TYA 




B8DA 


18 


3782 




CLC 




B8DB 


A662 


3783 


BB8DB 


LDX 


Z62 


B8DD 


DO 4 A 


3784 




BNE 


BB929 


B8DF 


A663 


3785 




LDX 


Z63 


B8E1 


8662 


3786 




STX 


Z62 


B8E3 


A664 


3787 




LDX 


Z64 


B8E5 


8663 


3788 




STX 


Z63 


BSE 7 


A665 


3789 




LDX 


Z65 


B8E9 


8564 


3790 




STX 


Z64 


B8EB 


A670 


3791 




LDX 


Z70 


B8ED 


8665 


3792 




STX 


Z65 


B8EF 


8470 


3793 




STY 


Z70 


B8F1 


6908 


3794 




ADC 


$08 


B8F3 


C920 


3795 




CMP 


$20 


B8F5 


D0E4 


3796 




BNE 


BB8DB 


B8F7 


A900 


3797 


JB8F7 


LDA 


$00 


B8F9 


8561 


3798 


JB8F9 


STA 


Z61 


B8FB 


8566 


3799 


JB8FB 


STA 


Z66 


B8FD 


60 


3800 




RTS 





if borrow, and postshift 
;let Y point 

;to higher 

; compute initial borrow 
;from guard bit 

; compute difference, byte 4 

;byte 3 

;byte 2 

;and byte 1 

;if borrow 

;negate result 

; initialize parameters 

;for postshift 

;if most significant byte 

; shift fraction over one byte 



; correct exponent by 8 

; repeat until 4 bytes shifted 
; because then result - 
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3802 ;add fractions 

3803 ; 



B8FE 


6556 


3804 


BB8FE 


ADC 


Z56 


B900 


8570 


3805 




STA 


Z70 


B902 


A565 


3806 




LDA 


Z65 


B904 


656D 


3807 




ADC 


Z6D 


B905 


8565 


3808 




STA 


Z65 


B908 


A564 


3809 




LDA 


Z64 


B90A 


656C 


3810 




ADC 


Z6C 


B90C 


8564 


3811 




STA 


Z64 


B90E 


A563 


3812 




LDA 


Z63 


B910 


656B 


3813 




ADC 


Z6B 


B912 


8563 


3814 




STA 


Z63 


B914 


A562 


3815 




LDA 


Z62 


B916 


656A 


3816 




ADC 


Z6A 


B918 


8562 


3817 




STA 


Z62 


B91A 4C36B9 


3818 




JMP 


JB936 






3819 












3820 


;postshlf t 






.3821 








B91D 


6901 


3822 


BB91D 


ADC 


$01 


B91F 


0670 


3823 




ASL 


Z70 


B921 


2665 


3824 




ROL 


Z65 


B923 


2664 


3825 




ROL 


Z64 


B925 


2663 


3826 




ROL 


Z53 


B927 


2662 


3827 




ROL 


Z62 


B929 


10F2 


3828 


BB929 


BPL 


BB91D 


B92B 


38 


3829 




SEC 




B92C 


E561 


3830 




SBC 


Z61 


B92E 


B0C7 


3831 




BCS 


JB8F7 


B930 


49FF 


3832 




EOR 


$FF 


B932 


6901 


3833 




ADC 


$01 


B934 


8561 


3834 




STA 


Z61 


B936 


900E 


3835 


JB936 


BCC 


BB946 


B938 


E661 


3836 


JB938 


INC 


Z61 


B93A F042 


3837 




BEQ 


BB97E 


B93C 


6662 


3838 




ROR 


Z62 


B93E 


6663 


3839 




ROR 


Z63 


B940 


6664 


3840 




ROR 


Z64 


B942 


6665 


3841 




ROR 


Z65 


B944 


6670 


3842 




ROR 


Z70 


B946 


60 


3843 


BB946 


RTS 





; compute initial fraction 
;also set guard bit 

; compute sum, byte 4 



;byte 3 



;byte 2 



;byte 1 

;go adjust for carry outside byte 1 



;add 1 to exponent 
; shift left 1 bit 
;over whole fraction 



; repeat until MSB = 1 

; subtract correction from exponent 

{underflow causes zero result 

; store new exponent 

scarry means overflow in fraction 

;so increment exponent 

; unless exponent overflows 

;and shift right by one bit 



; including guard bit 
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3845 


;negate flp accu 








3846 


; 






B947 


A566 


3847 


SB947 LDA 


Z66 




B949 


49FF 


3848 


EOR 


$FF 


; complement sign 


B94B 


8566 


3849 


SIA 


Z66 




B94D 


A562 


3850 


SB94D LDA 


Z62 




B94F 


49FF 


3851 


EOR 


$FF 


; complement fraction byte 


B951 


8562 


3852 


STA 


Z62 




B953 


A563 


3853 


LDA 


Z63 




B955 


49FF 


3854 


EOR 


$FF 


;byte 3 


B957 


8563 


3855 


STA 


Z63 




B959 


A564 


3856 


LDA 


Z64 




B95B 


49FF 


3857 


EOR 


$FF 


;byte 2 


B95D 


8564 


3858 


STA 


Z64 




B95F 


A565 


3859 


LDA 


Z65 




B961 


49FF 


3860 


EOR 


$FF 


;and byte 1 


B963 


8565 


3861 


STA 


Z65 




B965 


A570 


3862 


LDA 


Z70 




B967 


49FF 


3863 


EOR 


$FF 


;and guard bit 


B969 


8570 


3864 


STA 


Z70 


;if guard bit 


B96B 


E670 


3865 


INC 


Z70 




B96D 


DOOE 


3866 


BNE 


BB97D 


;then increment fraction 






3867 












3868 


; Increment fraction 








3869 








B95F 


E665 


3870 


SB96F INC 


Z65 


; increment byte 4 


B971 


DOOA 


3871 


BNE 


BB97D 


;if 


B973 


E664 


3872 


INC 


Z64 


;byte 3 also 


B975 


D006 


3873 


BNE 


BB97D 


;if 


B977 


E663 


3874 


INC 


Z63 


;byte 2 also 


B979 


D002 


3875 


BNE 


BB97D 


;if 


B97B 


E662 


3876 


INC 


Z62 


;byte 1 also 


B97D 


60 


3877 


BB97D RTS 




;zero bere means overflow 






3878 








B97E 


A20F 


3879 


BB97E LDX 


$0F 


; point to OVERFLOW Error 


B980 


4C37A4 


3880 


JMP 


JA437 


; print message 



86 



3882 ;preshlft 





3883 








D70J e^i.J 


3S84 


JB983 


LDX $25 




RQ8S R404 


3885 


BB985 


LDY Z04,X 


; shift whole fraction 




3886 




STY Z70 


; right one byte 




3887 




LDY Z03,X 




nCfiR 9404 


3888 




STY Z04,X 




B98D b402 


3889 




LDY Z02,X 




B93F 9403 


3S90 




STY Z03,X 






3891 




LDY ZOl.X 




rQQ3 Q402 


3892 




STY Z02,X 




h'iQS a468 


3893 




LDY Z68 


;hlgh order padding 


U997 9401 


3894 




STY ZOl.X 




D 7 7 > \JJ \f*J 


3895 


SB999 


ADC $08 


;add 8 to exponent 


rQQR 301^^ 


3896 




BMI BB985 


;if still <= 


B99D F0E6 


1RQ7 






; shift another byte 




3898 




cBr COS 


; compensate for correction 


n Q A 1 i R 


3899 




TAY 




D7 fl^ /■» J / U 


3900 




LDA Z70 


; check guard bit 




3901 




BCS BB9BA 


; if exponent zero now, stop shifting 


D 7 tlO 1. U V i. 


3902 


BB9A6 


ASL ZOl.X 


; else 


JtS7AO 7UU^ 


3903 




BCC BB9AC 




D7/ui ru^-zj. 


3904 




INC ZOl.X 




B9AC 7601 


3905 


BB9AC 


ROR ZOl.X 




B9AE 7601 


3906 




ROR ZOl.X 


; shift fraction right one bit 


B9B0 7602 


3907 


SB9B0 ROE Z02,X 




B9B2 7603 


3908 




ROR Z03,X 




B9fi4 7604 


3909 




ROR Z04,X 




B9B6 6A 


3910 




ROR A 


;last bit into A 


B9E7 C8 


3911 




INY 




B9E8 DOEC 


3912 




BNE BB9A6 


; until # of shifts zero 


39EA 18 


3913 


BB9BA 


CLC 




B9BB 6U 


3914 




RTS 









3916 


;1, also used as default FOR step 


B9BC 


810000 


3917 


TB9BC .BY $81, $00, $00, $00, $00 






3918 


;polyiiome table for 


LOG 


B9C1 


03 


3919 


TB9C1 .BY $03 








3920 


iO. 434255942 




B9C2 


7F5E56 


3921 


.BY $7F,$5E,$56,$CB,$79 






3922 


;0. 576584541 




B9C7 


801 39B 


3923 


.BY $80,$13,$9B,$0B,$64 






3924 


;0. 961800759 




B9CC 


807638 


3925 


.BY $80, $76, $38, $93, $16 






3926 


;2. 88539007 




B9D1 


8238AA 


3927 


.BY $82,$38,$AA,$3B,$20 






3928 


;0.5 * SQR(2) 




B9d6 


803504 


3929 


TB9D6 .BY $80 .$35 ,$04 ,$F3 , $34 






3930 


;SQR(2) 






B9DB 


813504 


3931 


TB9DB .BY $81 ,$35 ,$04,$F3 ,$34 






3932 


;-0.5 






B9E0 


808000 


3933 


TB9E0 .BY $80, $80, $00, $00, $00 






3934 


;L0G(2) 






B9E5 


803172 


3935 


TB9E5 .BY $80,$31,$72,$17,$F8 






3936 












3937 


; "LOG" command 








3938 








B9EA 




3939 


WB9EA = 


* 




B9EA 


202BBC 


3940 


SB9EA JSR 


SBC2B 


;get sign of flp accu into A 


B9ED 


F002 


3941 


BEQ 


BB9F1 




B9EF 


1003 


3942 


BPL 


BB9F4 


;if > 0, OK 


B9F1 


4C48B2 


3943 


BB9F1 JMP 


JB248 


;else ILLEGAL QUANTITY Error 






3944 








B9F4 


A561 


3945 


BB9F4 LDA 


Z61 


;get exponent 


B9F6 


E97F 


3946 


SBC 


$7F 


;corrrect for excess of 128 


B9F8 


48 


3947 


PHA 




;and save result 


B9F9 


A980 


3948 


LDA 


$80 




B9FB 


8561 


3949 


STA 


Z61 


;set exponent 


B9FD 


A9D6 


3950 


LDA 


<TB9D6 




B9FF 


A0B9 


3951 


LDY 


>TB9D6 


;set AY to point to 0.5 * SQR( 


BAOl 


2067B8 


3952 


JSR 


SB867 


;add to flp accu 


BA04 


A9DB 


3953 


LDA 


<TB9DB 




BA06 


A0B9 


3954 


LDY 


>TB9DB 


;set AY to point to SQR(2) 


BA08 


200FBB 


3955 


JSR 


SBBOF 


;divide AY by flp accu 


BAOB 


A9BC 


3956 


LDA 


<TB9BC 




BAOD 


A0B9 


3957 


LDY 


>TB9BC 


;set AY to point to 1 


BAOF 


2050B8 


3958 


JSR 


SB850 


; subtract flp accu from AY 


BA12 


A9C1 


3959 


LDA 


<TB9C1 




BA14 


A0B9 


3960 


LDY 


>TB9C1 


;set AY to polynome table 


BA16 


2043E0 


3961 


JSR 


XE043 


; compute odd polynome 


BA19 


A9E0 


3962 


LDA 


<TB9E0 




BAIB 


A0B9 


3963 


LDY 


>TB9E0 


;set AY to point to -0.5 


BAID 


2067B8 


3964 


JSR 


SB867 


;add to flp accu 


BA20 


68 


3965 


PLA 




; restore exponent 


BA21 


207EBD 


3966 


JSR 


JBD7E 


;add exponent to flp accu 


BA24 


A9E5 


3967 


LDA 


<TB9E5 




BA26 


A0B9 


3968 


LDY 


>TB9E5 


;set AY to L0G(2) 


BA28 


208CBA 


3969 


SBA28 JSR 


SBA8C 


;multiply AY times flp accu 



88 







3971 


;"*" operator 








3972 










BA2B 


D003 


3973 


WBA2B 


BNE 


BBA30 


;1£ flp accu = 0, return 


BA2D 


AC8BBA 


3974 
3975 


; 


JMP 


JBA8B 




BA30 


20B7BA 


3976 


BBA30 


JSR 


SBAB7 


;add exponents 


BA33 


A900 


3977 




LDA 


$00 




BA35 


8526 


3978 




STA 


Z26 


;set flp accu extension to zero 


BA37 


8527 


3979 




STA 


Z27 




BA39 


8528 


3980 




STA 


Z28 




BA3B 


8529 


3981 




STA 


Z29 




BA3D 


A570 


3982 




LDA 


Z70 


;get guard bit 


BA3F 


20S9BA 


3983 




JSR 


SBA59 


;* second flp accu added to flp accu 


BA42 


A565 


3984 




LDA 


Z6S 




BAA 4 


20S9BA 


3985 




JSR 


SBA59 


;same for byte 4 


BA47 


A56A 


3986 




LDA 


Z6A 




BAA 9 


2059BA 


3987 




JSR 


SBA59 


;same for byte 3 


BAAC 


A563 


3988 




LDA 


Z53 




BAAE 


2059BA 


3989 




JSR 


SBA59 


;and byte 2 


BA51 


A562 


3990 




LDA 


Z62 




BA53 


205EBA 


3991 




JSR 


SBASE 


;and byte 1 


BA56 


AC8FBB 


3992 
3993 


J 


JMP 


JBB8F 


; post-normalize and return 






3994 


;add i 


second flp 


accu * A to flp extension 






3995 


; 








BA59 


D003 


3996 


SBA59 


BNE 


SBA5E 


;if a zero 


BA5B 


AC83B9 


3997 
3998 




JMP 


JB983 


; perform pre-shift 


BASE 


AA 


3999 


SBASE 


LSR 


A 


; shift LSB of A into carry 


BASF 


0980 


4000 




ORA 


$80 


;set to $80 only after 8 shifts 


BA61 


A8 


AOOl 


BBA61 


TAY 




;save A 


BA62 


9019 


4002 




BCC 


BBA7D 


;lf low bit set 


BA6A 


18 


4003 




CLC 






BA6S 


A529 


4004 




LDA 


Z29 




BA67 


656D 


4005 




ADC 


Z6D 


;add second flp fraction 


BA69 


8529 


4006 




STA 


Z29 


;to flp extension 


BA6B 


A528 


A007 




LDA 


Z28 




BA6D 


6S6C 


A008 




ADC 


Z6C 




BA6F 


8528 


A009 




STA 


Z28 


;also byte 2 


BA71 


A527 


4010 




LDA 


Z27 




BA73 


656B 


4011 




ADC 


Z6B 




BA75 


8527 


4012 




STA 


Z27 


;and byte 3 


BA77 


AS26 


4013 




LDA 


Z26 




BA79 


556A 


401A 




ADC 


Z6A 




BA7B 


8526 


4015 




STA 


Z26 


;and byte 4 


BA7D 


6626 


4016 


BBA7D 


ROR 


Z26 


;shift flp extension right 1 bit 


BA7F 


6627 


4017 




ROR 


Z27 




BA81 


6628 


4018 




ROR 


Z28 




BA83 


6629 


4019 




ROR 


Z29 




BASS 


6670 


4020 




ROR 


Z70 


; including guard bit 


BA87 


98 


4021 




TYA 




;restore A 


BA88 


4A 


4022 




LSR 


A 


;get low bit of A into carry 


BA89 


D0D6 


4023 




BNE 


BBA61 


; repeat until zero 


BA8B 


60 


4024 


JBA8B 


RTS 







89 







4026 ;move 


flp 


# Indexe 






4027 ; 






BA8C 


8522 


4028 SBA8C 


STA 


Z22 


BASE 


8423 


4029 


STY 


Z23 


BA90 


A004 


4030 


LDY 


$04 


BA92 


B122 


4031 


LDA 


(Z22),Y 


BA94 


856D 


4032 


STA 


Z6D 


BA96 


88 


4033 


DEY 




BA97 


B122 


4034 


LDA 


(Z22),Y 


BA99 


856C 


4035 


STA 


Z6C 


BA9B 


88 


4036 


DEY 




BA9C 


B122 


4037 


LDA 


(Z22),Y 


BA9E 


856B 


4038 


STA 


Z6B 


BAAO 


88 


4039 


DEY 




BAAl 


B122 


4040 


LDA 


(Z22),Y 


BAA3 


856E 


4041 


STA 


Z6E 


BAA5 


4566 


4042 


EOR 


Z66 


BAA7 


856F 


4043 


STA 


Z6F 


BAA9 


A56E 


4044 


LDA 


Z6E 


BAAB 


0980 


4045 


ORA 


$80 


BAAD 


856A 


4046 


STA 


Z6A 


BAAF 


88 


4047 


DEY 




BABO 


B122 


4048 


LDA 


(Z22),Y 


BAB2 


8569 


4049 


STA 


Z69 


6AB4 


A561 


4050 


LDA 


Z61 


BAB6 


60 


4051 


RTS 





by AY into second flp accu 
;save AY index 

;move byte 4 of fraction 

;byte 3 

;byte 2 

;and byte 1 
;into sign 

;also Exclusive OR with sign of flp accu 
;byte 1 always has bit 7 set 
;save exponent 

;show exponent of flp accu in A, Z and N 



90 







4053 


; add exponents 








4054 


> 




;get exp. of 2nd flp accu (left operand) 


BAB7 


A569 


4055 


SBAB7 


EDA Z69 


BAB9 


FOIF 


4056 




BEQ BBADA 


;if zero, set zero result 


BABE 


18 


4057 




CLC 




BABC 


6561 


4058 




ADC Z61 


;add to exponent of flp accu 


BABE 


9004 


4059 




BCC BBAC4 


;if carry set 


BACO 


3011J 


4060 




BMI BBADF 


;and negative, true overflow 


BAC2 


18 


4061 




CLC 


;else correct for excess 128 


BAC3 


2C 


4062 




.3Y $2C 


;sfcip next Instructiion 


BAC4 


1014 


4063 


BBAC4 


BPL BBADA 


;if C = 1 and positive, real underflow 


BAC6 


6980 


4064 




ADC $80 


;else correct for excess 128 


BAC8 


8561 


4065 




STA Z61 


; store resulting exponent 


BACA D003 


4066 




BNE BBACF 


;lf zero 


BACC 


4CFBB8 


4067 
4068 


; 


JMP JB8FB 


; set sign positive 


BACF 


A56F 


4069 


BBACF 


LDA Z6F 


;Exclusive OR of signs 


EADl 


8566 


4070 




STA Z66 


; is sign of result 


BAD3 


60 


4071 
4072 


t 


RTS 




EAI)4 


A566 


4073 




LDA Z66 


;get sign of flp accu 


BAD6 


49 FF 


4074 




EOR $FF 




BADS 


3005 


4075 




BMI BBADF 


;if positive, overflow 


BADA 


68 


4076 


BBADA 


PLA 


; remove own return address 


BACB 


68 


4077 




PLA 




BADC 


4CF7Bii 


4078 
4079 




JMP JB8F7 


;and set result zero 


BADF 


4C7EB9 


4080 
4081 


BBADF 


JMP BB97E 


; OVERFLOW Error 






4032 


;iiiultiply flp accu by 10 






4083 








BAE2 


200CBC 


4084 


SBAE2 


JSR SBCOC 


;inove rounded flp Into second flp accu 


BAE5 


AA 


4085 




TAX 


;get exponent 


3AE6 


FOlO 


4086 




BEQ BBAF8 


;if flp accu is zero, return 


BAEb 


18 


4087 




CLC 




BAE9 


6902 


4088 




ADC $02 


; exponent of second flp + 2 (<'*4) 


BAEB 


B0F2 


4089 




BCS BBADF 


; exit if overflow 


BAED 


A200 


4090 


SBAEU 


1J)X $00 




EAEF 


866F 


4091 




STX Z6F 


;set signs same 


BAFl 


207 7E8 


4092 




JSR SB877 


;add second flp accu to flp (# * 5) 


EAF4 


E661 


4093 




INC Z61 


;add 1 to exponent (t * 10) 


BAF6 


F0E7 


4094 




BEQ BBADF 


;exlt if overflow 


BAF8 


60 


4095 
4096 


BBAF8 


RTS 








4097 


iflp 


constant 10 


for division 


BAF9 


8420C0 


4098 


TBAF9 


.BY $84, $20, $00, $00, $00 






4099 












.4100 


; divide flp accu 


by 10 






4101 








BAFE 


200CBC 


4102 


SBAFE 


JSR SBCOC 


;move rounded flp accu to 2nd flp accu 


BBOl 


A9F9 


4103 




LDA <TBAF9 




BB03 


AOBA 


4104 




LDY >TBAF9 


;set AY to flp value 10 


BB05 


A200 


4105 




LDX $00 




BB07 


866F 


4106 




STX Z6F 


;set signs the same 


BB09 


20A2BB 


4107 




JSR SBBA2 


iload flp accu from AY 


BBOC 


4C12BE 


4108 




JMP JBB12 


; perform division 







4110 


; divide number (indexed by AY) by flp accu 






4111 








BBOF 


208CBA 


4112 
4113 


SBBOF 


JSR SBA8C 


; fetch # indexedby AY into 2nd flp accu 






4114 


;"/" operator 








41 15 


; 






BBI2 




/.lit 

41 ID 


WBB12 






BB12 


F076 


41 17 


JBB12 


BEQ BBB8A 


;if flp accu =0, DIVISION oi zbKU hrror 


BB14 


201BBC 


4118 




JSR SBCIB 


; round flp accu according to guard bit 


BB17 


A900 


4119 




LDA $00 




BB19 


38 


4120 




SEC 




BBIA 


E561 


4121 




SBC Z61 


; compute 2's complement of exponent 


BBIC 


8561 


4122 




STA Z61 




BBIE 


20B7BA 


4123 




JSR SBAB7 


;add exponents 


BB21 


E661 


4124 




INC Z61 


; correct exponent 


BB23 


FOBA 


4125 




BEQ BBADF 


;exlt if overflow 


BB25 


A2FC 


4126 




LDX $FC 


;set initial index into flp extension 


BB27 


A901 


4127 




LDA $01 


; assure 8 loops per byte 


BB29 


A46A 


4128 


BBB29 


LDY Z6A 




BB2B 


C462 


4129 




CPY Z62 


; compare fractions, byte I 


BB2D 


DOlO 


4130 




BNE BBB3F 




BB2F 


A46B 


4131 




LDY Z6B 




BB31 


C463 


4132 




CPY Z63 


;byte 2 


BB33 


DOOA 


4133 




BNE BBB3F 




BB35 


A46C 


4134 




LDY Z6C 




BB37 


C464 


4135 




CPY Z64 


;byte 3 


BB39 


D004 


4136 




BNE BBB3F 




BB3B 


A46D 


4137 




LDY Z6D 




BB3D 


C465 


4138 




CPY Z65 


;byte 4 


BB3F 


08 


4139 


BBB3F 


PHP 


; save result of comparison 


BB40 


2A 


4140 




ROL A 


; shift result into A 


BB41 


9009 


4141 




BCC BBB4C 


;after 8 shifts 


BB43 


E8 


4142 




INX 




BB44 


9529 


4143 




STA Z29,X 


;save result into flp extension 


BB46 


F032 


4144 




BEQ BBB7A 


; after byte 4, do guard byte 


BB48 


1034 


4145 




BPL BBB7E 


;after guard byte, exit 


BB4A 


A901 


4146 




LDA $01 


;again, 8 iterations per byte 


BB4C 


28 


4147 


BBB4C 


FLP 


; restore result of comparison 


BB4D 


BOOE 


4148 




BCS BBB5D 


;if dividend larger, subtract 


BB4F 


066D 


4149 


JBB4F 


ASL Z6D 


; shift dividend left 1 bit 


BB51 


266C 


4150 




ROL Z6C 




BB53 


266B 


4151 




ROL Z6B 




BB55 


266A 


4152 




ROL Z6A 




BB57 


B0E6 


4153 




BCS BBB3F 


;if C = 1 comparison result will be 1 


BB59 


30CE 


4154 




BMI BBB29 


;if C = and MSB = 1, compare 


BB5B 


10E2 


4155 




BPL BBB3F 


;if C = and MSB = 0, comp. result - 


BB5D 


A8 


4156 


BBB5D 


TAY 


;if dividend larger 


BB5E 


A56D 


4157 




LDA Z6D 




BB60 


E565 


4 156 




SBC Z65 


; subtract divisor 


BB62 


856D 


4159 




STA Z6D 




BB64 


A56C 


4160 




LDA Z6C 




BB66 


E564 


4161 




SBC Z64 


;byte 2 


6B68 


856C 


4162 




STA Z6C 




BB6A 


A56B 


4163 




LDA Z6B 




BB6C 


E563 


4164 




SBC Z63 


;byte 3 


BB6E 


856B 


4165 




STA Z6B 




BB70 


A56A 


4166 




LDA Z6A 




BB72 


E562 


4167 




SBC Z62 


;byte 4 


BB74 


856A 


4168 




STA Z6A 




BB76 


98 


4169 




TYA 





92 



BB77 


4C4FBB 


4170 
4171 




JMP 


JBB4F 


; repeat 


BB7A 


A940 


4172 


BBB7A LDA 


$40 


;two more Iterations for guard bit 


BB7C 


DOCE 


4173 




BNE 


BBB4C 




BB7E 


OA 


4174 


BBB7E 


ASL 


A 


;after guard byte computation, 


BB7F 


OA 


4175 




ASL 


A 


; shift result left 6 bits 


BB80 


OA 


4176 




ASL 


A 




BB81 


OA 


4177 




ASL 


A 




BB82 


OA 


4178 




ASL 


A 




BB83 


OA 


4179 




ASL 


A 




BB84 


8570 


4180 




STA 


Z70 


;set new guard bit 


BB86 


28 


4181 




PLP 




;remove result of last comparison 


BB87 


4C8FBB 


4182 
4183 




JMP 


JBB8F 


;and save result 


BB8A 


A214 


4184 


BBB8A LDX 


$14 


; point to DIVISION BY ZERO Error 


BB8C 


4C37A4 


4185 
4185 




JMP 


JA437 


; print error 


BB8F 


A526 


4187 


JBB8F 


LDA 


Z26 


;move flp accu extension 


BB91 


8552 


4188 




STA 


Z52 


;into flp fraction 


BB93 


A527 


4189 




LDA 


Z27 




BB95 


8563 


4190 




STA 


Z63 


;byte 2 


BB97 


A528 


4191 




LDA 


Z28 




BB99 


8554 


4192 




STA 


Z64 


;byte 3 


BB9B 


A529 


4193 




LDA 


Z29 




BB9D 


8565 


4194 




STA 


Z65 


;byte 4 


BB9F 


4CD7B8 


4195 
4196 


; 


JMP 


BB8D7 


;do post-normalization 






4197 


;load 


flp 


accu with 


constant indexed by AY 






4198 










BBA2 


8522 


4199 


SBBA2 


STA 


Z22 




BBA4 


8423 


4200 




STY 


Z23 


;save AY 


BBA6 


A004 


4201 




LDY 


$04 




BBA8 


B122 


4202 




LDA 


(Z22),Y 


;load byte + 4 


BBAA 


8565 


4203 




STA 


Z55 


;into flp accu + 4 


BBAC 


88 


4204 




DEY 






BBAD 


B122 


4205 




LDA 


(Z22) ,Y 


;byte + 3 


BBAF 


8554 


4206 




STA 


Z64 




BBBl 


88 


4207 




DEY 






BBB2 


B122 


4208 




LDA 


(Z22) ,Y 


;byte + 2 


BBB4 


8563 


4209 




STA 


Z53 




BBB6 


88 


4210 




DEY 






BBB7 


B122 


4211 




LDA 


(Z22),Y 


;byte + 1 


BBB9 


8566 


4212 




STA 


Z56 


;into sign byte 


BBBB 


0980 


4213 




ORA 


$80 


;and with bit 7 set 


BBBD 


8562 


4214 




STA 


Z62 


;into flp accu + 1 


BBBF 


88 


4215 




DEY 






BBCO 


B122 


4216 




LDA 


(Z22),Y 


;byte + 


BBC2 


8551 


4217 




STA 


Z61 


;into exponent of flp accu 


BBC4 


8470 


4218 




STY 


Z70 


; clear guard bit 


BBC6 


60 


4219 




RTS 
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4221 


; store 


flp accu at 


Z5C-Z60 






4222 


; 






BBC7 


A25C 


4223 




LDX <Z5C 


;inltialize low byte of pointer 


BBC9 


2C 


4224 
4225 




.BY $2C 


;skip next instruction 






4225 


; store 


! flp accu at 


Z57-Z5B 






4227 








BBCA A257 


4228 




LDX <Z57 


;inltlal}Jt 2ai byte of pointer 


BBCC 


AOOO 


4229 




LDY >Z57 


; initialize high byte of pointer 


BBCE 


F004 


4230 
4231 




BEQ SBBD4 


;JMP 






4232 


;store flp accu into area Indexed by Z49/Z4A 






4233 








BBDO 


A649 


4234 


JBBDO 


LDX Z49 


;set area pointer in XY 


BBD2 


A44A 


4235 
4236 


i 


LDY Z4A 








4237 


; Store flp accu in 


area indexed by XY 






4238 








BBD4 


201BBC 


4239 


SBBD4 


JSR SBCIB 


; round flp accu 


BBD7 


8622 


4240 




STX Z22 


; store XY in temporary pointer 


BBD9 


8423 


4241 




STY Z23 




BBDB 


A004 


4242 




LDY $04 




BBDD 


A565 


4243 




LDA Z65 


;move byte 4 of fraction 


BBDF 


9122 


4244 




STA (Z22),Y 




BBEl 


88 


4245 




DEY 




BBE2 


A564 


4246 




LDA Z64 




BBE4 


9122 


4247 




STA (Z22),Y 


;byte 3 


BBE6 


88 


4248 




DEY 




BBE7 


A563 


4249 




LDA Z63 




BBE9 


9122 


4250 




STA (Z22),Y 


;byte 2 


BBEB 


88 


4251 




DEY 




BBEC 


A556 


4252 




LDA Z66 


; combine sign 


BBEE 


09 7F 


4253 




ORA $7F 




BBFO 


2562 


4254 




AND Z62 


;and byte 1 


BBF2 


9122 


4255 




STA (Z22),Y 


; into byte 1 of area 


BBF4 


88 


4256 




DEY 




BBF5 


A561 


4257 




LDA Z61 


jmove exponent 


BBF7 


9122 


4258 




STA (Z22),Y 




BBF9 


8470 


4259 




STY Z70 


; clear guard bit 


BBFB 


60 


4260 
4261 




RTS 








4262 


;move 


second flp accu into first flp accu 






4263 








BBFC 


A56E 


4264 


SBBFC 


LDA Z6E 


;move sign 


BBFE 


8566 


4265 


SBBFE 


STA Z66 




BCOO 


A205 


4266 




LDX $05 


;loop counter 


BC02 


B568 


4267 


BBC02 


LDA Z68,X 


;move 5 bytes 


BC04 


9560 


4268 




STA Z60,X 




BC06 


CA 


4269 




DEX 




BC07 


D0F9 


4270 




BNE BBC02 




BC09 


8670 


4271 




STX Z70 


;set product of signs to "+" 


BCOB 


60 


4272 




RTS 





94 







4274 


;iiiove rounded flp 


accu into second flp accu 






4275 








BCOC 


201BBC 


4276 


SBCOC JSR 


SBCIB 


; round flp accu 


BCOF 


A206 


4277 


LDX $06 


;set # bytes to move 


BCll 


B560 


4278 


BBCll LDA 


Z60,X 


;move 6 bytes 


BC13 


9568 


4279 


STA 


Z68,X 




BC15 


CA 


4280 


DEX 






BC16 


D0F9 


4281 


BNE 


BBCll 




BC18 


8670 


4282 


STX 


Z70 


; store zero into gtiard bit 


BCIA 


50 


4283 
4284 


BBCIA RTS 










4285 


; round flp accu according to guard bit 






4286 








BCIB 


A561 


4287 


SBCIB LDA 


Z61 


;if flp accu - 


BCID 


FOFB 


4288 


BEQ 


BBCIA 


; leave it at 


BCIF 


0670 


4289 


ASL 


Z70 


;lf guard bit not set 


BC21 


90F7 


4290 


BCC 


BBCIA 


; status quo 


BC23 


206FB9 


4291 


SBC23 JSR 


SB96F 


; increment fraction 


BC26 


D0F2 


4292 


BNE 


BBCIA 


;if no overflow, leave it 


BC28 


4C38B9 


4293 
4294 


JMP 


JB938 


;else shift fraction right 






4295 


;get sign 


of flp accu in A 






4296 








BC2B 


A561 


4297 


SBC2B LDA 


Z61 


;if exponent zero 


BC2D 


F009 


4298 


BEQ 


BBC38 


;sign = 


BC2F 


A566 


4299 


BBC2F LDA 


Z66 


;move sign bit 


BC31 


2A 


4300 


JBC31 ROL 


A 


;lnto C bit 


BC32 


A9FF 


4301 


LDA 


$FF 


;lf C = 1, sign = FF 


BC34 


B002 


4302 


BCS 


BBC38 




BC36 


A901 


4303 


LDA 


$01 


;if C = 0, sign = 01 


BC38 


60 


4304 


BBC38 RTS 







4305 ; 

4306 ;"SGN" command 

4307 ; 

BC39 202BBC 4308 WBC39 JSR SBC2B ;get SGN of flp accu into A 

4309 ; 

4310 ;move signed number from A into flp accu 

4311 ; 



BC3C 


8562 


4312 


JBC3C 


STA 


Z62 


; store # in most significant byte 


BC3E 


A900 


4313 




LDA 


$00 




BC40 


8563 


4314 




STA 


Z63 


;and into byte 2 


BC42 


A288 


4315 




LDX 


$88 


;load exponent 


BC44 


A562 


4316 


JBC44 


LDA 


Z62 




BC46 


49FF 


4317 




EOR 


$FF 


; complement sign 


BC48 


2A 


4318 




ROL 


A 


;and move into C flag 


BC49 


A900 


4319 


SBC49 


LDA 


$00 




BC4B 


8565 


4320 




STA 


Z65 


; clear byte 3 


BC4D 


8564 


4321 




STA 


Z64 


;and byte 4 


BC4F 


8661 


4322 


JBC4F 


STX 


Z61 


; store exponent 


BC51 


8570 


4323 




STA 


Z70 


;move sign to guard bit 


BC53 


8566 


4324 




STA 


Z66 


;and to sign bit 


BC55 


4CD2B8 


4325 




JMP 


JB8D2 


;negate flp accu if borrow and post- 
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4327 


;"ABS" 


command 






4328 








BC58 


4666 


4329 


WBC58 


LSR 


Z66 


BC5A 


60 


4330 
4331 




RTS 








4332 


; compare flp accu 






4333 


J 






BC5B 


8524 


4334 


SBC5B 


STA 


Z24 


BC5D 


8425 


4335 


SBC5D 


STY 


Z25 


BC5F 


AOOO 


4336 




LDY 


$00 


BC61 


B124 


4337 




LDA 


(Z24),Y 


BC63 


C8 


4338 




INY 




BC64 


AA 


4339 




TAX 




BC65 


F0C4 


4340 




BEQ 


SBC2B 


BC67 


B124 


4341 




LDA 


(Z24),Y 


BC69 


4566 


4342 




EOR 


Z66 


BC5B 


30C2 


4343 




BMI 


BBC2F 


BC6D 


E461 


4344 




CPX 


Z61 


BC6F 


D021 


4345 




BNE 


BBC92 


BC71 


B124 


4346 




LDA 


(Z24),Y 


BC73 


0980 


4347 




OKA 


$80 


BC75 


C562 


4348 




CMP 


Z62 


BC77 


D019 


4349 




BNE 


BBC92 


BC79 


C8 


4350 




INY 




BC7A 


B124 


4351 




LDA 


(Z24),Y 


BC7C 


C563 


4352 




CMP 


Z63 


BC7E 


D012 


4353 




BNE 


BBC92 


BC80 


C8 


4354 




INY 




BC81 


B124 


4355 




LDA 


(Z24),Y 


BC83 


C564 


4356 




CMP 


Z64 


BC85 


DOOB 


4357 




BNE 


BBC92 


BC87 


C8 


4358 




INY 




BC88 


A97F 


4359 




LDA 


$7F 


BC8A 


C570 


4360 




CMP 


Z70 


BC8C 


B124 


4361 




LDA 


(Z24),Y 


BC8E 


E565 


4362 




SBC 


Z65 


BC90 


F028 


4363 




BEQ 


BBCBA 


BC92 


A566 


4364 


BBC92 


LDA 


Z66 


BC94 


9002 


4365 




BCC 


BBC98 


BC96 


49Fr 


4366 




EOR 


$FF 


BC98 


4C31BC 


4367 


BBC98 


JMP 


JBC31 



;set sign of flp accu positive 

to flp # Indexed by AY 
;save Index to variable 

;get exponent of variable 



;lf zero, get sign of flp accu 

;get byte 1 of fraction 

;lf different from sign of flp accu 

;get sign of flp accu 

; compare exponents 

;lf not equal, set sign according to C 
;get byte 1 

; compare to byte 1 of flp accu 

;if not equal, set sign according to C 

;get byte 2 

; compare to byte 2 of flp accu 

;if not equal, set sign according to C 

;get byte 3 

; compare to byte 3 of flp accu 

;if not equal, set sign accoring to C 

;set borrow 

;according to guard bit 

; compute difference between bytes 4 
;if equal, return with A = 
;else compute sign according to C 



;and set A accordingly 
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4369 ; convert flp accu to a 4 byte signed integer 

4370 ; 



BC9B 


A56I 


4371 


SBC9B 


LDA 


Z61 


;get exponent 


BC9D 


F04A 


4372 




BEQ 


BBCE9 


jif zero fill fraction with zeros 


BC9F 


38 


4373 




SEC 






BCAO 


E9A0 


4374 




SBC 


$A0 


; calculate exponent - 32 


BCA2 


2466 


4375 




BIT 


Z66 


;if result negative 


BCA4 


1009 


4376 




BPL 


BBCAF 




BCA6 


AA 


4377 




TAX 




; save A 


BCA7 


A9FF 


4378 




LDA 


$FF 


;set padding to ones 


BCA9 


8568 


4379 




STA 


Z68 




BCAB 


204DB9 


4380 




JSR 


SB94D 


;negate flp fraction 


BCAE 


8A 


4381 




TXA 




;restore A 


BCAF 


A261 


4382 


BBCAF 


LDX 


$61 




BCBl 


C9F9 


4383 




CMP 


$F9 


;if < 8 places to be shifted 


BCB3 


1006 


4384 




BPL 


BBCBB 




BCB5 


2099B9 


4385 




JSR 


SB999 


;do shift 


BCB8 


8468 


4386 




STY 


Z68 


;and reset padding 


BCBA 


60 


4387 
4388 


BBCBA 


RTS 






BCBB 


A8 


4389 


BBCBB 


TAY 




;if > = 8 places to be shifted 


BCBC 


A566 


4390 




LDA 


Z66 




BCBE 


2980 


4391 




AND 


$80 




BCCO 


4662 


4392 




LSR 


Z62 


; set parameters 


BCC2 


0562 


4393 




ORA 


Z62 




BCC4 


8562 


4394 




STA 


Z62 


;and MSB 


BCC6 


20B0B9 


4395 




JSR 


SB9B0 


; to do byte shifts first 


BCC9 


8468 


4396 




STY 


Z68 


;and then reset padding 


BCCB 


60 


4397 
4398 




RIS 










4399 


;"INT 


command 








4400 


; 








BCCC 




4401 


WBCCC 




* 




BCCC 


A561 


4402 


SBCCC 


LDA 


Z61 


;get exponent 


BCCE 


C9A0 


4403 




CMP 


$A0 


;lf > = 32 


BCDO 


B020 


4404 




BCS 


BBCF2 


; then no conversion necessary 


BCD2 


209BBC 


4405 




JSR 


SBC9B 


; convert flp accu to 4 byte integer 


BCD5 


8470 


4406 




STY 


Z70 


; clear guard bit 


BCD7 


A566 


4407 




LDA 


Z66 


;get sign 


BCD9 


8466 


4408 




STY 


Z66 


;set sign positive 


BCDB 


4980 


4409 




EOR 


$80 


; invert sign 


BCDD 


2A 


4410 




ROL 


A 


;and move into carry 


BCDE 


A9A0 


4411 




LDA 


$A0 




BCEO 


8561 


4412 




STA 


Z61 


;set exponent to 32 


BCE2 


A565 


4413 




LDA 


Z65 


;move least significant bit 


BCE4 


8507 


4414 




STA 


Z07 


;into even/ odd switch 


BCE6 


4CD2B8 


4415 
4416 




JMP 


JB8D2 


;negate flp accu if borrow 






4417 


; clear flp accu 








4418 










BCE9 


8562 


4419 


BBCE9 


STA 


Z62 


;move A into every byte of fraction 


BCEB 


8563 


4420 




STA 


Z63 




BCED 


8564 


4421 




STA 


Z64 




BCEF 


8565 


4422 




STA 


Z65 




BCFl 


A8 


4423 




TAY 






BCF2 


60 


4424 


BBCF2 


RTS 
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to flp # in flp accu 







4426 


; convert s 


trlng 






4427 








BCF3 


AOOO 


4428 


SBCF3 LDY $00 


BCF5 


A20A 


4429 




LDX 


$0A 


BCF7 


945D 


4430 


BBCF7 


STY 


Z5D,X 


BCF9 


CA 


4431 




DEX 




BCFA 


lOFB 


4432 




BPL 


BBCF7 


BCFC 


900F 


4433 




BCC 


BBDOD 


BCFE 


C92D 


4434 




CMP 




BDOO 


D004 


4435 




BNE 


BBD06 


BD02 


8667 


4436 




SIX 


Z67 


BD04 


F004 


4437 




BEQ BBDOA 


BD06 


C92B 


4438 


BBD06 


CMP 


'+ 


BD08 


D005 


4439 




BNE 


BBDOF 


BDOA 


207300 


4440 


BBDOA JSR 


X0073 


BDOD 


905B 


4441 


BBDOD 


BCC 


BBD6A 


BDOF 


C92E 


4442 


BBDOF 


CMP 




BDU 


F02E 


4443 




BEQ 


BBD41 


BD13 


C945 


4444 




CMP 


'E 


BD15 


D030 


4445 




BNE 


BBD47 


BD17 


207300 


4446 




JSR 


X0073 


BDIA 


9017 


4447 




BCC 


BBD33 


BDIC 


C9AB 


4448 




CMP 


$AB 


BDIE 


FOOE 


4449 




BEQ 


BBD2E 


BD20 


C92D 


4450 




CMP 




BD22 


FOOA 


4451 




BEQ BBD2E 


BD24 


C9AA 


4452 




CMP 


$AA 


BD26 


F008 


4453 




BEQ 


BBD30 


BD28 


C92B 


4454 




CMP 


'+ 


BD2A 


F004 


4455 




BEQ 


BBD30 


BD2C 


D007 


4456 




BNE 


BBD35 


BD2E 


6660 


4457 


BBD2E 


ROR 


Z60 


BD30 


207300 


4458 


BBD30 


JSR 


X0073 


BD33 


905C 


4459 


BBD33 


BCC 


BBD91 


BD35 


2460 


4460 


BBD35 


BIT 


Z60 


BD37 


lOOE 


4461 




BPL 


BBD47 


BD39 


A900 


4462 




LDA $00 


BD3B 


38 


4463 




SEC 




BD3C 


E55E 


4464 




SBC 


Z5E 


BD3E 


4C49BD 


4465 
4466 




JMP 


JBD49 


BD41 


665F 


4467 


BBD41 


ROR 


Z5F 


BD43 


245F 


4468 




BIT 


Z5F 


BD45 


50C3 


4469 




BVC 


BBDOA 


BD47 


A55E 


4470 


BBD47 


LDA 


Z5E 


BD49 


38 


4471 


JBD49 


SEC 




BD4A E55II 


4472 




SBC 


Z5D 


BD4C 


855E 


4473 




SIA 


Z5E 


BD4E 


F012 


4474 




BEQ BBD62 


BD50 


1009 


4475 




BPL 


BBD5B 


BD52 


20FEBA 


4476 


BBD52 


JSR 


SBAFE 


BD55 


E65E 


4477 




INC 


Z5E 


BD57 


D0F9 


4478 




BNE 


BBD52 


BD59 


F007 


4479 




BEQ 


BBD62 


BD5B 


20E2BA 


4480 


BBD5B 


JSR 


SBAE2 


BD5E 


C65E 


4481 




DEC 


Z5E 


BD60 


.D0F9 


4482 




BNE 


BBD5B 


BD62 


A567 


4483 


BBD62 


LDA 


Z67 


BD64 


3001 


4484 




BMI 


BBD67 


BD66 


60 


4485 




RTS 





;loop counter, 11 bytes to be cleared 
; clear flp accu and 5 more 

;if first character not nxjmeric 
; check for minus 
;if so, 

;set flag for negative It 

;check for positive number 

;if not, go try others 

;get next character 

;lf numeric, gather number 

;if decimal point, 

;set flag 

;if exponent character 

;get next character 

;lf numeric, gather exponent value 

;lf code for "-" 

;or "-" Itself 

;set flag 

;if code for "+" 

;or "+" Itself 
; skip 

;else combine fraction & exponent 

;set flag for negative exponent 

;get next character 

;if numeric, gather exponent value 

;at end of exponent 

;if sign of exponent negative 

;get two's complement of exponent 
; combine 

;set code for "." found 

;if already set, this is end of number 
;get exponent, base 10 

;minus # of digits after "." 
; save 

;if zero, no adjustment 

;if positive, multiply by 10 

;if negative, divide flp accu by 10 

; Increment exponent, base 10 

;and repeat if not zero 

;lf positive, multiply flp accu by 10 

; decrement exponent, base 10 

;and repeat if not zero 

;get sign of flp # 

;if positive, 

; return 
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4486 ; 



BD67 


4CB4BF 


4487 
4488 


BBD67 

J 


JMP 


JBFB4 


;else apply monadic "-" 




BD6A 


48 


4489 


BBD6A 


PHA 




;save numeric digit 




BD6B 


245F 


4490 




BIT 


Z5F 


;if "." found 




BD6D 


1002 


4491 




BPL 


BBD71 






BD6F 


E65D 


4492 




INC 


Z5D 


; increment // of digits after 


• " 


BD71 


20E2BA 


4493 


BBD71 


JSR 


SBAE2 


;multiply flp accu by 10 




BD74 


68 


4494 




PLA 




;restore numeric digit 




BD75 


38 


4495 




SEC 








BD76 


E930 


4496 




SBC 


'0 


; convert from ASCII to binary 




BD78 


207EBD 


4497 




JSR 


JBD7E 


;add signed integer from A to 


flp 


BD7B 


4C0ABD 


4498 
4499 


; 


JMP 


BBDOA 


;repeat for next character 








4500 


;add i 


signed integer 


from A to flp accu 








4501 


» 










BD7E 


48 


4502 


JBD7E 


PHA 




;save integer 




BD7F 


200CBC 


4503 




JSR 


SBCOC 


;move rounded flp accu to 2nd 


flp 


BD82 


68 


4504 




PLA 




; restore integer 




BD83 


203CBC 


4505 




JSR 


JBC3C 


;get signed # from A into flp 


acci 


BD86 


A56E 


4506 




LDA 


Z6E 






BD88 


4566 


4507 




EOR 


Z66 


; compute Exclusive OR of signs 


J 


BD8A 


856F 


4508 




STA 


Z6F 






BD8C 


A661 


4509 




LDX 


Z61 


;let Z and N reflect exponent 




BD8E 


4C6AB8 


4510 
4511 


i 


JMP 


JB86A 


; apply diadic operator "+" 








4512 


;get ( 


exponent of number from a string 








4513 


» 










BD91 


A55E 


4514 


BBD91 


LDA 


Z5E 


;get exponent gathered so far 




BD93 


C90A 


4515 




CMP 


$0A 


;if => 10 




BD95 


9009 


4516 




BCC 


BBDAO 






BD97 


A964 


4517 




LDA 


$64 


;and sign of exponent is positive 


BD99 


2460 


4518 




BIT 


Z60 






BD9B 


3011 


4519 




BMI 


BBDAE 


;then overflow 




BD9D 


4C7EB9 


4520 
4521 


; 


JMP 


BB97E 


; print error 




BDAO 


OA 


4522 


BBDAO 


ASL 


A 


; exponent * 2 




BDAl 


OA 


4523 




ASL 


A 


; exponent * 4 




BDA2 


18 


4524 




CLC 








BDA3 


655E 


4525 




ADC 


Z5E 


; exponent * 5 




BDA5 


OA 


4526 




ASL 


A 


; exponent * 10 




BDA6 


18 


4527 




CLC 








BDA7 


AOOO 


4528 




LDY 


$00 






BDA9 


717A 


4529 




ADC 


(Z7A),Y 


;add current character 




BDAB 


38 


4530 




SEC 








BDAC 


E930 


4531 




SBC 


'0 


; convert from ASCII to binary 




BDAE 


85 5E 


4532 


BBDAE 


STA 


Z5E 


; save exponent 




BDBO 


4C30BD 


4533 




JMP 


BBD30 


;repeat for next character 





99 



4535 ; constants for flp to string conversion 

4536 ; 

4537 ;999999.9 

BDB3 9B3EBC 4538 TBDB3 .BY $9B,$3E,$BC,$IF,$FD 

4539 ;999999999 
BDB8 9E6E6B 4540 TBDB8 .BY $9E,$6E,$6B,$27,$FD 

4541 ; 1000000000 



BDBD 


9E6E6B 


4542 


TBDBD 


.BY $9E,$6E,$6B,$28,$00 






4543 














4544 


; print 


, IN 


follwed 


by statement 11 






4545 










BDC2 


A971 


4546 


SBDC2 


LDA 


<TA371 


;set AY to IN message 


BDC4 


A0A3 


4547 




LDY 


>TA371 




BDC6 


20DABD 


4548 




JSR 


SBDDA 


; print message 


BDC9 


A53A 


4549 




LDA 


Z3A 


;get current statement # into AX 


BDCB 


A639 


4550 
4551 




LDX 


Z39 








4552 


; print # from AX 








4553 










BDCD 


8562 


4554 


SBDCD 


STA 


Z62 


;move AX into flp accu 


BDCF 


8663 


4555 




STX 


Z63 




BDDl 


A290 


4556 




LDX 


$90 


;set exponent to 16 


BDD3 


38 


4557 




SEC 






BDM 


2049BC 


4558 




JSR 


SBC49 


;pad out flp accu 


BDD7 


20DFBD 


4559 




JSR 


SBDDF 


;convert flp accu to string 


BDDA 


4C1EAB 


4560 
4561 


SBDDA 


JMP 


SABIE 


;and go print string 






4562 


; convert Jl 


f in flp 


accu to string 






4563 










BDDD 


AOOl 


4564 


SBDDD 


LDY 


$01 


; initial output index 


BDDF 


A920 


4565 


SBDDF 


LDA $20 


;set first character to a space 


BDEl 


2466 


4566 




BIT 


Z66 


;but if sign negative 


BDE3 


1002 


4567 




BPL 


BBDE7 




BDE5 


A92D 


4568 




LDA 




;set first character to "-" 


BDE7 


99FF00 


4569 


BBDE7 


STA 


XO 100-1 


,Y ; store sign into output area 


BDEA 


8566 


4570 




STA 


Z66 


;set sign positive 


BDEC 


8471 


4571 




STY 


Z71 


;save output index 


BDEE 


C8 


4572 




INY 






BDEF 


A930 


4573 




LDA 


'0 


;assume 


BDFl 


A661 


4574 




LDX 


Z61 


;if exponent 


BDF3 


D003 


4575 




BNE 


BBDF8 




BDF5 


4C04BF 


4576 
4577 




JMP 


JBF04 


; output and end string 


BDF8 


A900 


4578 


BBDF8 


LDA $00 


; clear exponent, base 10 


BDFA 


E080 


4579 




CPX 


$80 




BDFC 


F002 


4580 




BEQ 


BBEOO 


;if exponent, base 2, = 


BDFE 


B009 


4581 




BCS 


BBE09 


;or < 


BEOO 


A9BD 


4582 


BBEOO 


LDA 


<TBDBD 


;set AY to point to 1000000000 


BE02 


AOBD 


4583 




LDY 


>TBDBD 




BE04 


2028BA 


4584 




JSR 


SBA28 


;multiply by flp accu 


BE07 


A9F7 


4585 




LDA 


$F7 


;set exponent base 10 to -9 


BE09 


855D 


4586 


BBE09 


STA 


Z5D 


;save exponent base 10 


BEOB 


A9B8 


4587 


BBEOB 


LDA 


<IBDB3 




BEOD 


AOBD 


4588 




LDY 


>TBDB8 


;set AY to index 999999999 


BEOF 


205BBC 


4589 




JSR 


SBC5B 


; compare flp accu to AY 


BE12 


FOIE 


4590 




BEQ 


BBE32 


;if equal, no need to adjust exonent 


BE14 


1012 


4591 




BPL 


BBE28 


;if flp accu >, adjust accordingly 


BE16 


A9B3 


4592 


BBE16 


LDA 


<TBDB3 


;if flp accu <, 


BE18 


AOBD 


4593 




LDY 


>TBDB3 


;set AY to point to 999999.9 


BEIA 


205BBC 


4594 




JSR 


SBC5B 


;and compare flp accu to II indexed by AY 



100 



BE ID 


F002 


4595 




BEQ 


BBE21 




BEIF 


lOOE 


4596 




BPL 


BBE2F 




BE21 


20E2BA 


4597 


BBE21 


JSR 


SBAE2 




BE24 


C65D 


4598 




DEC 


Z5D 




BE26 


DOEE 


4599 




BNE 


BBE16 




BE28 


20FEBA 


4600 


6BE28 


JSR 


SBAFE 




BE2B 


E55D 


4601 




INC 


Z5D 




BE2D 


DODC 


4602 




BNE 


BBEOB 




BE2F 


2049B8 


4603 


BBE2F 


JSR 


SB849 




BE32 


209BBC 


4604 


BBE32 


JSR 


SBC9B 




BE35 


A201 


4605 




LDX 


$01 




BE37 


A55D 


4605 




LDA 


Z5D 




BE39 


IS 


4607 




CLC 






BE3A 


690A 


4608 




ADC 


$0A 




BE3C 


3009 


4609 




BMI 


BBE47 




BE3E 


C90B 


4610 




CMP 


$0B 




BE40 


B006 


4611 




BCS 


BBE48 




BE42 


69FF 


4612 




ADC 


$FF 




BE44 


AA 


4613 




TAX 






BE45 


A902 


4614 




LDA 


$02 




BE47 


38 


4615 


BBE47 


SEC 






BE48 


E902 


4616 


BBE48 


SBC 


$02 




BE4A 


S55E 


4617 




STA 


Z5E 




BE4C 


865D 


4618 




STX 


Z5D 




BE4E 


8A 


4619 




TXA 






BE4F 


F002 


4620 




BEQ 


BBE53 




BE51 


1013 


4621 




BPL 


BBE66 




BE53 


A471 


4622 


BBE53 


LDY 


Z71 




BE55 


A92E 


4623 




LDA 






BE57 


C8 


4624 




INY 






BE58 


99FF0O 


4625 




STA 


XOlOO-1 




BE5B 


8A 


4626 




TXA 






BE5C 


F006 


4627 




BEQ 


BBE64 




BE5E 


A930 


4628 




LDA 


'0 




BE60 


CS 


4629 




INY 






BE51 


99FF00 


4630 




STA 


XOlOO-1 


,Y 


BE64 


8471 


4631 


BBE64 


STY 


Z71 




BE66 


AOOO 


4632 


BBE66 


LDY 


$00 




BE68 


A280 


4633 


SBE68 


LDX 


$80 




BE 6 A 


A565 


4634 


BBE6A LDA 


Z65 




BE6C 


IS 


4635 




CLC 






BE6D 


7919BF 


4636 




ADC 


TBF16+3 




BE70 


8565 


4637 




STA 


Z65 




BE 72 


A564 


4638 




LDA 


Z64 




BE74 


791SBF 


4639 




ADC 


TBF16+2 




BE77 


8564 


4640 




STA 


Z64 




BE79 


A563 


4641 




LDA 


Z63 




BE7B 


7917BF 


4642 




ADC 


TBF16+1 




BE7E 


8563 


4643 




STA 


Z63 




BE80 


A562 


4644 




LDA 


Z62 




BE82 


7916BF 


4645 




ADC 


TBF16,Y 




BE85 


8562 


4646 




STA 


Z62 




BE87 


E8 


4647 




INX 






BESS 


BOO 4 


464S 




BCS 


BBE8E 




BE8A 


lODE 


4649 




BPL 


BBE6A 




BE8C 


3002 


4650 




BMI 


BBE90 




BE8E 


30DA 


4651 


BBE8E 


BMI 


BBE6A 




BE90 


8A 


4652 


BBE90 


TXA 






BE91 


9004 


4653 




BCC 


BBE97 




BE93 


49FF 


4654 




EOR 


$FF 





if flp accu <, no more adjustment 
else multiply flp accu by 10 
decrement exponent base 10 
and repeat 

divide flp accu by 10 
increment exponent, base 10 
repeat 

do half rounding of flp accu 
convert flp accu to 4 byte integer 
set position of decimal point 
get exponent, base 10 

add 10 

;if still < 0, do exponential notation 
lif > 10 

ido exponential notation 

;else set new position of decimal point 
land set exponent base 10 accordingly 

; correct exponent, base 10 
;save exponent 

;save position of decimal point 

;if position of decimal point > 
;no extra adjustment needed 
;get output index 
;set decimal point 

; store it 

;if position of decimal point < 

iset a 

;and store it 

;save output index 

;set initial table index 

initial table phase negative 

add table entry 

to fraction, byte 4 



;byte 3 



;byte 2 



;byte 1 

; increment digit 

;if no overflow and positive, repeat 

;if overflow and negative phase, repeat 
;if positive phase 

;get 10 - digit 



101 



BE95 


690A 


4655 




ADC $0A 




BE97 


69 2F 


4656 


BBE97 


ADC $2F 




BE99 


C8 


4657 




INY 




BE9A 


C8 


4658 




INY 




BE9B 


C8 


4659 




INY 




BE9C 


C8 


4660 




INY 




BE9D 


8447 


4661 




STY Z47 




BE9F 


A471 


4662 




LDY Z71 




BEAl 


C8 


4663 




INY 




BEA2 


AA 


4564 




TAX 




BEA3 


297F 


4565 




AND $7F 




BEA5 


99FF00 


4566 




STA XOl CO- 




BEA8 


C65D 


4667 




DEC Z5D 




BEAA D006 


4668 




BNE BBEB2 




BEAC 


A92E 


4559 




IDA 




BEAE 


C8 


4670 




INY 




BEAF 


99FF00 


4671 




STA XOIOO- 




BEB2 


8471 


4672 


BBEB2 


STY Z71 




BEB4 


A447 


4573 




LDY Z47 




BEB6 


8A 


4674 




IXA 




BEB7 


49FF 


4675 




EOR $FF 




BEB9 


2980 


4676 




AND $80 




BEBB 


AA 


4677 




TAX 




BEBC 


C024 


4678 




CPY $24 




BEBE 


F004 


4579 




BEQ BBEC4 




BECO 


C03C 


4580 




CPY $3C 




BEC2 


D0A6 


4681 




BNE BBE6A 




BEC4 


A471 


4682 


BBEC4 


LDY Z71 




BEC6 


B9FF00 


4683 


BBEC5 


LDA X0100-1,Y 


BEC9 


88 


4584 




DEY 




BECA 


C930 


4685 




CMP '0 




BECC 


F0F8 


4686 




BEQ BBEC5 




BECE 


C92E 


4687 




CMP '. 




BEDO 


FOOl 


4688 




BEQ BBED3 




BED2 


C8 


4689 




INY 




BED3 


A92B 


4590 


BBED3 


LDA '+ 




BEDS 


A65E 


4591 




LDX Z5E 




BED7 


F02E 


4692 




BEQ BBF07 




BED9 


1008 


4593 




BPL BBEE3 




BEDB 


A900 


4694 




LDA $00 




BEDD 


38 


4695 




SEC 




BEDE 


E55E 


4696 




SBC Z5E 




BEEO 


AA 


4697 




TAX 




BEEl 


A92D 


4698 




LDA '- 




BEE3 


990101 


4699 


BBEE3 


STA XOlOl, 


,Y 


BEE6 


A945 


4700 




LDA 'E 




BEES 


990001 


4701 




STA XOlOO, 


,Y 


BEEB 


8A 


4702 




TXA 




BEEC 


A22F 


4703 




LDX $2F 




BEEE 


38 


4704 




SEC 




BEEF 


E8 


4705 


BBEEF 


INX 




BEFO 


E90A 


4706 




SBC $0A 




BEF2 


BOFB 


4707 




BCS BBEEF 




BEF4 


693A 


4708 




ADC $3A 




BEF6 


990301 


4709 




STA X0103 


.■if 


BEF9 


8A 


4710 




TXA 




BEFA 


990201 


4711 




STA X0102 


,1 


BEFD 


A900 


4712 




LDA $00 




BEFF 


990401 


4713 




STA X0104,Y 


BF02 


F008 


4714 




BEQ BBFOC 





; convert to ASCII 



; point to next table entry 
;save table Index 
;get output Index 

;save digit 

; remove phase bit 

; store digit 

;decrement position of decimal point 
;i£ position reached 
;set decimal point 

;and store it at next output location 
;save output index 
; res tore table index 

; Inverse phase bit 
;reset digit 

;if table index not at 9 (* 4) 

;and not at 15 (* 4) 
; repeat 

;if end of segment, restore output index 
;get last digit 

;if a "O" 

; remove and repeat 
;if decimal point 
;remove, but do not repeat 

;set "+" 

;get exponent, base 10 
;if zero, go end string 

;if negative, 

; compute complement of exponent 
;and set "-" 

; store sign of exponent in output area 
;set sign for exponential notation 
;and store it 

;get ASCII base for first exponent digit 
; increment 

; subtract 10 from exponent 

;if not a borrow, repeat 

;convert second exponent digit to ASCII 

; store second digit 

; store first digit 

; store end of string 
;and exit 



102 



BF04 


99FFOO 


4715 


JBF04 STA 


X0100-1,Y ; store A at current output 


BF07 


A900 


4716 


BBF07 LDA $00 


BF09 


990001 


4717 


STA 


X0100,Y ;store end of string 


BFOC 


A900 


4718 


BBFOC LDA 


<X0100 


BFOE 


AOOi 


47 19 


LDY 


>X0100 ;set AY to point to string 


BFIO 


60 


4720 


RIS 








4721 










4722 


;constant£ 


for conversions 






4723 










4724 


;0.5 for rounding, SQR and dummy variable 


BFll 


800000 


4725 


TBFll .BY $80, $00, $00, $00, $00 






4726 










4727 


; divisors 


for decimal conversion 






4728 










4729 


; -100000000 


BF16 


FAOAIF 


4730 


TBF16 .BY $FA,$0A,$1F,$00 






4731 


; +10000000 


BFIA 


009896 


4732 


.BY 


$00, $98, $96, $80 






4733 


;- 1000000 




BFIE 


FFFOBD 


4734 


.BY 


$FF,$FO,$BD,$CO 






4735 


; +100000 




BF22 


000186 


4736 


.BY 


$00,$0l,$86,$A0 






4737 


;-10000 




BF26 


FFFFD8 


4738 


.BY 


$FF,$FF,$D8,$F0 






4739 


;+1000 




BF2A 


000003 


4740 


.BY 


$00,$00,$03,$E8 






4741 


;-100 




BF2E 


FFFFFF 


4742 


.BY 


$FF,$FF,$FF,$9C 






4743 


;+10 




BF32 


000000 


4744 


.BY 


$00,$00,$00,$0A 






4745 


;-i 




BF36 


FFFFFF 


4746 


.BY 


$FF,$FF,$FF,$FF 






4747 










4748 


;divisors 


for time conversion 






4749 










4750 


;-10 * 6 * 10 * 6 * 10 * 60 


BF3A 


FFDFOA 


4751 


.BY $FF,$DF,$0A,$80 






4752 


;+5 * 10 * 6 * 10 * 60 


BF3E 


000j4B 


4753 


.BY $00,$03,$4B,$CO 






4754 


;-10 * 6 * 10 * 60 


BF42 


FFFF73 


4755 


.BY $FF,$FF,$73,$60 






4756 


;+6 * 10 * 60 


BF46 


OOOOOE 


4757 


.BY $00,$00,$OE,$10 






4758 


;-10 * 60 




BF4A 


FFFFFD 


4759 


.BY $FF,$FF,$FD,$A8 






4760 


;+60 




BF4E 


000000 


4761 


.BY $00,$00,$00,$3C 






4762 










4763 


; unused area follows 






4764 






BF52 


ECAAAA 


4765 


.BY $EC,$AA,$AA,$AA,$AA,$AA,$AA,$AA 


BF5A 


AAAAAA 


4766 


.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 


BF62 


AAAAAA 


4767 


.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 


BF6A 


AAAAAA 


4768 


.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA 



103 







4770 


;"SQR' 


command 










4771 












BF71 


200CBC 


4772 


WBF71 


JSR 


SBCOC 


;move rounded flp accu into 


2nd flp 


BF74 


A911 


4773 




LDA 


<TBF11 






BF76 


AOBF 


4774 




LDY 


>TBF11 


;let AY point to value 0.5 




BF78 


20A2BB 


4775 
4776 




JSR 


SBBA2 


;load flp accu from AY 








4777 


; "EXPONENT" operation 








4778 












BF7B 


F070 


4779 


WBF7B 


BEQ 


BBFED 


;if right operand zero, do 


EXP(O) 


BF7D 


A569 


4780 




LDA 


Z69 


;if left operand zero 




BF7F 


D003 


4781 




BNE 


BBF84 






BF81 


4CF9B8 


4782 
4783 




JMP 


JB8F9 


;set result zero 




BF84 


A24E 


4784 


BBF84 


LDX 


<Z4E 






BF86 


AOOO 


4785 




LDY 


>Z4E 


;set AY to Z4E ■ 




BF88 


20D4BB 


4786 




JSR 


SBBD4 


; store flp accu there 




BF8B 


A56E 


4787 




LDA 


Z6E 


;get sign of left operand 




BF8D 


lOOF 


4788 




BPL 


BBF9E 


;if negative 




BF8F 


20CCBC 


4789 




JSR 


SBCCC 


; perform INT 




BF92 


A94E 


4790 




LDA <Z4E 






BF94 


AOOO 


4791 




LDY 


>Z4E 


;set AY to Z4E again 




BF96 


205BBC 


4792 




JSR 


SBC5B 


; compare AY with flp accu 




BF99 


D003 


4793 




BNE 


BBF9E 


;if equal, right operand = 


integer 


BF9B 


98 


4794 




TYA 




;set positive 




BF9C 


A407 


4795 




LDY 


Z07 


;set sign change flag 




BF9E 


20FEBB 


4796 


BBF9E 


JSR 


SBBFE 


;move second flp accu into 


flp accu 


BFAl 


98 


4797 




TYA 








BFA2 


48 


4798 




PHA 




;save sign change flag 




BFA3 


20EAB9 


4799 




JSR 


SB9EA 


; perform LOG 




BFA6 


A94E 


4800 




LDA 


<Z4E 






BFA8 


AOOO 


4801 




LDY 


>Z4E 


;set AY to Z4E 




BFAA 


2028BA 


4802 




JSR 


SBA28 


;multiply AY by flp accu 




BFAD 


20EDBF 


4803 




JSR 


BBFED 


; perform EXP 




BFBO 


68 


4804 




PLA 




; restore sign change flag 




BFBl 


4A 


4805 




LSR 


A 


; shift into carry 




BFB2 


900A 


4806 




BCC 


BBFBE 


; return if not set, else do monadic 






4807 
















4808 


; "MINUS" operator 










4809 












BFB4 




4810 


WBFB4 




* 






BFB4 


A561 


4811 


JBFB4 


LDA 


Z61 


;if number = 




BFB6 


F006 


4812 




BEQ 


BBFBE 


;so is resiU.t 




BFB8 


A566 


4813 




LDA 


Z66 






BFBA 


49FF 


4814 




EOR $FF 


;else invert sign 




BFBC 


8566 


4815 




STA 


Z66 






BFBE 


60 


4815 


BBFBE 


RTS 









104 



BFBF 


8138AA 


BFC4 


07 


BFC5 


713458 


BFCA 


74167E 


BFCF 


772FEE 


BFD4 


7A1D84 


BFD9 


7C6359 


BFDE 


7E75FD 


BFE3 


803172 


BFE8 


810000 


BFED 




BFED 


A9BF 


BFEF 


AOBF 


BFFl 


2028BA 


BFF4 


A570 


BFF6 


6950 


BFF8 


9003 


BFFA 


2023BC 


BFFD 


4C00E0 



4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4845 
4847 
4848 
4849 
4850 



; floating point numbers for EXP 
•1/L0G(2) 

TBFBF .BY $81 ,$38 , $AA, $3B ,$29 

.BY $07 ;polynome table for EXP 

0.0000214987637 

.BY $71,$34,$58,$3E,$56 
0.000143523140 

.BY $74,$16,$7E,$B3,$1B 
0.00134226348 

.BY $77,$2F,$EE,$E3,$85 
0.00961401701 

.BY $7A,$1D,$84,$1C,$2A 
0.0555051269 

.BY $7C,$63,$59,$58,$0A 
0.240226385 

.BY $7E,$75,$FD,$E7,$C6 
0.693147186 

.BY $80, $31, $72, $18, $10 

1.0 

.BY $81, $00, $00, $00, $00 
"EXP" command 



WBFED = * 

BBFED LDA <TBFBF 
LDY >TBFBF 
JSR SBA28 
LDA Z70 
ADC $50 
BCC BBFFD 
JSR SBC23 

BBFFD JMP XEOOO 



;let AY point to 1/L0G(2) 
;multlply AY times flp accu 

; according to guard byte + 80 

; round flp accu 

; continue in part 2 
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BA38F A38F 503 

BA3A4 A3A4 489 

BA3B0 A3B0 495 

BA3B7 A3B7 487 498 

BA3DC A3DC 535 

BA3E8 A3E8 547 

BA3EC A3EC 541 543 553 

BA3F3 A3F3 530 

BA412 A412 574 

BA416 A416 583 

BA421 A421 589 

BA434 A434 573 576 594 

BA435 A435 563 567 595 597 2854 

BA456 A456 631 

BA474 A474 638 

BA480 A480 654 716 744 

BA49C A49C 657 

BA4D7 A4D7 694 

BA4DF A4DF 699 705 709 

BA4ED A4ED 667 

BA508 A508 724 

BA522 A522 741 

BA53C A53C 772 

BA544 A544 759 

BA55F A55F 755 

BA562 A562 784 

BA576 A576 780 

BA582 A582 802 847 

BA58E A58E 798 

BA5A4 A5A4 81 1 

BA5AC A5AC 815 

BA5B6 A5B6 829 

BA5B8 A5B8 863 

BA5C7 A5C7 865 

BA5C9 A5C9 800 804 809 813 817 850 852 

BA5DC A5DC 841 

BA5DE A5DE 843 

BA5E5 A5E5 856 

BA5EE A5EE 807 

BA5F5 A5F5 831 

BA5F9 A5F9 861 

BA609 A609 838 

BA617 A617 903 1298 

BA62E A62E 890 

BA637 A637 892 

BA640 A640 884 

BA641 A641 889 896 897 909 980 983 

BA68D A68D 927 974 

BA5A4 A6A4 971 972 

BA6BB A6BB 978 

BA6C9 A6C9 988 1033 

BA6E6 A6E6 1007 

BA6E8 A6E8 1009 

BA6EF A6EF 1061 

BA6F3 A6F3 1040 1042 1044 

BA700 A700 1018 

BA714 A714 998 1010 1023 

BA717 A717 1025 

BA72C A72C 1055 
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BA72F 


A/ LS 




DA/ J I 


A/ J / 






a7 

A/ J J 


1 r»7i 

iU/ 1 


BA79F 


a7Qc 
A/yr 


1111 
1 i 1 i 


BA7BE 


A7BE 




BA7CE 


A7 CE 




BA804 


A804 


1165 


n Aftn7 
daou / 


A807 


1 135 


BA80B 


A80B 


1 1 

i lo J 


BA80E 


A80E 


1167 


BA827 


aQO 7 
AoZ / 


1 1 QA 


BA82B 


A82B 


1 163 


BA832 


Ao 


iZUO 


BA849 


A849 


1216 


BA854 


A854 


1227 


BA862 


A862 


1236 


BA870 


A870 


1211 


BA87D 


A87D 


1254 


BA8BC 


A8BC 


1288 


BA8C0 


A8C0 


1293 


BA8DI 


ABDl 


1 ^1 n 


BA8E3 


A8E3 


1299 


BA8E8 


A8E8 


i jyo 


BA8EB 


A8EB 


1 ^1 1 


BA8FB 


A8FB 


1382 


BA905 


A905 


1342 


BA91 L 


A911 


1366 


BA919 


A919 


1365 


BA937 


A937 


1373 


BA940 


A940 


1377 


BA948 


A948 


1387 


BA953 


A953 


1426 


BA957 


A957 


1396 


BA95F 


A95F 


1400 


BA96A 


AQA A 
Al/DA 


1420 


BA99F 




1442 


BA9D6 


A9D6 


1465 


BA9D9 


A9D9 


1463 


BA9ED 


A9ED 


1513 


BAA07 


AA07 


1506 


BAA24 


AA24 


1494 


BAA27 


A A')7 
AAZ / 




BAA2C 


AA2C 


1 /■ Qfi 
iM-OO 


BAA3D 


AA3D 


1 ';'^7 


BAA4B 


AA4B 


1536 


BAA52 


AA52 


1545 


BAA90 


AA90 


1589 


BAA9A 


AA9A 


1617 


BAA9D 


AA9D 


1622 


BAAE5 


AAE5 




BAAE7 


AAE7 


1605 


BAAE8 


AAE8 


1612 


6AAEE 


AAEE 


1656 


BAAF8 


AAF8 


1607 


BABOE 


ABOE 


1659 


BABOF 


ABOF 


1668 


BAB 10 


ABIO 


1679 


BAB13 


AB13 


1614 


BAB19 


AB19 


1675 


BAB28 


AB28 


1697 



1063 

1923 

1233 
1295 

1800 1912 
1360 1362 

1406 

1541 1544 
1548 

1698 

1633 1692 
1610 

1671 
1699 



BAB42 


AB42 


1704 




BAB57 


AB57 


1718 




BAB5B 


AB5B 


1720 




BAB5F 


AB5F 


1666 




BAB62 


AB62 


1717 




BAB6B 


AB6B 


1727 




BAB92 


AB92 


1744 




BABB7 


ABB7 


1758 




BABD6 


ABD6 


1798 




BABEA 


ABEA 


1788 


1791 


BAC03 


AGO 3 


1805 




BACOD 


ACOD 


1796 




BAC41 


AC41 


1834 




BAC4A 


AC4A 


1842 




BAC4D 


AC4D 


1839 




BAC51 


AC51 


1832 


1917 


BAC65 


AC65 


1851 




BAC71 


AC71 


1856 




BAC72 


AC72 


1859 




BAC7D 


AC7D 


1868 




BAC89 


AC89 


1849 




BAC9D 


AC9D 


1879 


1881 


BACB8 


ACB8 


1840 


1916 


BACDl 


ACDl 


1900 




BACDF 


ACDF 


1893 




BACEA 


ACEA 


1922 




BACFB 


ACFB 


1927 


1929 


BAD27 


AD27 


1946 




BAD32 


AD32 


1904 




BAD35 


AD35 


1951 




BAD75 


AD75 


1994 




BAD78 


AD78 


1977 




BAD96 


AD96 


2016 




BAD97 


AD97 


2012 




BAD99 


AD99 


2013 




BADA4 


AIIA4 


2023 




BADD7 


ADD7 


2039 


2041 


BADE8 


ADE8 


2058 




BADFO 


ADFO 


2087 




BADF9 


ADF9 


2090 




BAE07 


AE07 


2053 




BAEll 


AEll 


2082 




BAE19 


AE19 


2074 




BAE30 


AE30 


2047 




BAE58 


AE58 


2054 


2056 


BAE5B 


AE5B 


2076 




BAE5D 


AE5D 


2068 




BAE64 


AE64 


2135 




BAE66 


AE66 


2077 


2089 


BAE80 


AE80 


2133 




BAE8A 


AE8A 


2188 




BAE8F 


AE8F 


2184 




BAE92 


AE92 


2165 




BAE9A 


AE9A 


2169 




BAEAD 


AEAD 


2173 




BAEC6 


AEC5 


2194 




BAECC 


AECC 


2190 




BAEE3 


AEE3 


2200 




BAEEA 


AEEA 


2217 




BAEFl 


AEFl 


2221 


2364 3008 



BAFOD AFOD 2186 

BAFOF AFOF 2202 

BAF27 AF27 2256 

BAF5C AF5C 2275 2277 2279 

BAF5D AFSD 2271 

BAF6E AF6E 2293 

BAF92 Ar92 2306 

BAFAO AFAO 2304 2308 2327 2329 

BAFDl AFDl 2344 

BB02E B02E 2406 

BB056 B056 2432 2434 

BB05B B05B 2449 

BB066 B066 2442 

BB072 B072 2444 2446 2451 

BB07B B07B 2457 

BB07E B07E 2467 

BB09C B09C 2501 

BB09F B09F 2478 

BBOAF BOAF 2485 

BBOBO BOBO 2490 2492 

BBOBA BOBA 2487 

BB0C4 B0C4 2494 

BB0D4 B0D4 2497 

BBODB BODB 2499 

BB0E7 B0E7 2514 

BBOEF BOEF 2540 

BBOFl BOFl 2538 

BBOFB BOFB 2524 

BB109 B109 2529 

BBllC BllC 2548 

BBllD BHD 2525 

BB123 B123 2569 

BB128 B128 2559 

BB138 B138 2577 

BB13B B13B 2567 2571 

BB143 B143 2575 

BB159 B159 2588 

BB185 B185 2533 

BB18F B18F 2622 

BBIAO BIAO 2635 

BBICC BlCC 2658 

BBICE BICE 2664 

BBIDB BIDB 2704 

BB21C B21C 2737 

BB228 B228 2718 

BB237 B237 2725 

BB245 B245 2750 2853 

BB24A B24A 2745 

BB24D B24D 2728 

BB261 B261 2720 

BB274 B274 2762 

BB27D B27D 2767 

BB286 B286 2796 

BB296 B296 2779 

BB2B9 B2B9 2803 

BB2C8 B2C8 2815 2818 

BB2CD B2CD 2812 

BB2F2 B2F2 2870 

BB308 B308 2848 

BB30B B30B 2798 2805 2911 2922 



BB30E B30E 2847 

BB30F B30F 2852 

BB320 B320 2860 

BB331 B331 2874 

BB337 B337 2877 

BB34B B34B 2830 2960 

BB35F B35F 2924 

BB378 B378 2914 

BB384 B384 2930 

BB3AE B3AE 3020 

BB418 B418 3026 

BB449 B449 3048 

BB497 B497 3111 

BB4A4 B4A4 3109 

BB4A8 B4A8 3107 

BB4A9 B4A9 3113 

BB4B5 B4B5 3120 

BB4BF B4BF 3124 

BB4CA B4CA 3126 3382 3480 3508 

BB4D2 B4D2 3184 

BB4D5 B4D5 3137 

BB4F6 B4F6 3189 

BB501 B501 3167 

BB50B B50B 3171 

BB516 B516 3170 3173 

BB544 B544 3211 

BB54D B54D 3209 

BB559 B559 3223 

BB561 B561 3219 

BB566 B566 3221 

BB56E B56E 3252 3254 

BB572 B572 3268 

BB57D B57D 3231 3233 

BB5AE B5AE 3262 

BB5B0 B5B0 3270 

BB5B8 B5B8 3266 

BB5DC B5DC 3294 

BB5E6 B5E6 3300 

BB5F6 B5F6 3276 3279 3287 3295 3297 3299 3302 

BB601 B601 3315 3325 

BB65D B65D 3369 

BB690 B690 3411 

BB699 B699 3405 

BB6A2 B6A2 3416 

BB6D5 B6D5 3449 

BB6D6 B6D6 3440 3442 3444 

BB6EB B6EB 3459 3461 

BB70C B70C 3487 

BB70D B70D 3535 

BB70E B70E 3538 3540 

BB725 B7i5 3504 

BB748 B748 3524 

BB798 B798 3528 3579 3593 3642 3645 

BB7B5 B7B5 3600 

BB7CD B7CD 3613 

BB83C B83C 3683 

BB840 B840 3690 

BB848 B848 3731 

BB862 B862 3748 

BB86F B86F 3723 
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BB893 B893 3735 

BB897 B897 3744 

BB8A3 B8A3 3714 3734 

BB8AF B8AF 3760 

BB8D7 B8D7 3778 4195 

BB8DB B8DB 3796 

BB8FE B8FE 3754 

BB91D B91D 3828 

BB929 B929 3784 

BB946 B946 3835 

BB97D B97D 3866 3871 3873 3875 

BB97E B97E 3837 4080 4520 

BB985 B985 3896 3897 

BB9A6 B9A6 3912 

BB9AC B9AC 3903 

BB9BA B9BA 3901 

BB9F1 B9F1 3941 

BB9F4 B9F4 3942 

BBA30 BA30 3973 

BBA61 BA61 4023 

BBA7D BA7D 4002 

BBAC4 BAC4 4059 

BBACF BACF 4066 

BBADA BADA 4056 4063 

BBADF BADE 4060 4075 4089 4094 4125 

BBAF8 BAF8 4086 

BBB29 BB29 4154 

BBB3F BB3F 4130 4133 4136 4153 4155 

BBB4C BB4C 4141 4173 

BBB5D BB5D 4148 

BBB7A BB7A 4144 

BBB7E BB7E 4145 

BBB8A BB8A 4117 

BBC02 BC02 4270 

BBCll BCll 4281 

BBCIA BCIA 4288 4290 4292 

BBC2F BC2F 4343 

BBC38 BC38 4298 4302 

BBC92 BC92 4345 4349 4353 4357 

BBC98 BC98 4365 

BBCAF BCAF 4376 

BBCBA BCBA 4363 

BBCBB BCBB 4384 

BBCE9 BCE9 4372 

BBCF2 BCF2 4404 

BBCr7 BCF7 4432 

BBD06 BD06 4435 

BBDOA BDOA 4437 4469 4498 

BBDOD BDOD 4433 

BBDOF BDOF 4439 

BBD2E BD2E 4449 4451 

BBD30 BD30 4453 4455 4533 

BBD33 BD33 4447 

BBD35 BD35 4455 

BBD41 BD41 4443 

BBD47 BD47 4445 4461 

BBD52 BD52 4478 

BBD5B BD5B 4475 4482 

BBD62 BD62 4474 4479 

BBD67 BD67 4484 
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BBD6A BD6A 4441 

BBD71 BD71 4491 

BBD91 BD91 4459 

BBDAO BDAO 4516 

BBDAE BDAE 4519 

BBDE7 BDE7 4557 

BBDF8 BDF8 4575 

BBEOO BEOO 4580 

BBE09 BE09 4581 

BBEOB BEOB 4602 

BBE16 BE16 4599 

BBE21 BE21 4595 

BBE28 BE28 4591 

BBE2F BE2F 4596 

BBE32 BE32 4590 

BBE47 BE47 4609 

BBE48 BE48 4611 

BBE53 BE53 4620 

BBE64 BE64 4627 

BBE66 BE66 4621 

BBE6A BE6A 4649 4651 4681 

BBE8E BE8E 4648 

BBE90 BE90 4650 

BBE97 BE97 4653 

BBEB2 BEB2 4668 

BBEC4 BEC4 4679 

BBEC6 BEC6 4686 

BBED3 BED3 4688 

BBEE3 BEE3 4693 

BBEEF BEEF 4707 

BBF07 BF07 4692 

BBFOC BFOC 4714 

BBF84 BF84 4781 

BBF9E BF9E 4788 4793 

BBFBE BFBE 4806 4812 

BBFED BFED 4779 4803 

BBFFD BFFD 4848 

JA437 A437 786 1237 1320 1729 1953 2018 2240 2742 2964 3139 3371 3880 
4185 

JA469 A469 1228 

JA7AE A7AE 1159 1276 1986 

JA7E1 A7E1 659 1151 1179 

JA7EF A7EF 1402 

JA84B A84B 1140 

JA897 A897 1258 

JA8A0 A8A0 1187 1275 1388 

JA8F8 A8F8 1793 2987 

JA971 A971 1445 

JAA68 AA68 1551 

JAAAO AAAO 1596 

JAAA2 AAA2 1677 

JAACA AACA 788 

JAB4D AB4D 1882 

JABB5 ABB5 1583 1792 

JAC15 AC15 1895 

JAC91 AC91 1873 

JADA9 ADA9 2100 

JADB8 ADB8 3383 

JADBB ADBB 2050 

JADFA ADFA 2247 
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JAE43 AE43 1104 

JAF08 AF08 1180 1322 1725 2102 2236 2479 2572 3049 

JAF28 AF28 2170 

JAFA7 AFA7 2222 

JAFD6 AFD6 2362 

JB061 B061 2415 

JBIDI BlDl 2515 

JB248 B248 1526 2668 3585 3943 

JB2EA B2EA 2751 

JB391 B391 2212 2301 2401 2954 

JB3A2 B3A2 3568 3583 3667 

JB3F4 B3F4 2218 

JB44F B44F 2988 

JB46F B46F 2288 

JB52A B52A 3351 

JB606 B606 3234 

JB63D B63D 2059 

JB706 B706 3516 

JB86A B86A 3711 4510 

JB8D2 B8D2 4325 4415 

JB8F7 B8F7 3601 3831 4078 

JB8F9 B8F9 4782 

JB8FB B8FB 4067 

JB936 B936 3818 

JB938 B938 4293 

JB983 B983 3997 

JBA8B BA8B 3974 

JBB12 BB12 4108 

JBB4F BB4F 4170 

JBB8F BB8F 3992 4182 

JBBDO BBDO 1481 1971 

JBC31 BC31 4367 

JBC3C BC3C 2331 2459 4505 

JBC44 BC44 2947 

JBC4F BC4F 2312 

JBD49 BD49 4465 

JBD7E BD7E 1529 3955 4497 

JBF04 BF04 4576 

JBFB4 BFB4 4487 

SA38A A38A 1070 1313 1950 

SA3B8 A3B8 727 2592 

SA3BF A3BF 3341 

SA3FB A3FB 1079 1263 2032 

SA408 A408 508 2756 2806 

SA533 A533 714 743 

SA560 A560 649 1808 

SA579 A579 658 664 

SA613 A613 666 976 

SA659 A659 713 742 1255 

SA660 A660 1257 

SA67A A67A 632 

SA68E A68E 922 

SA7ED A7ED 1158 1389 

SA81D A81D 939 

SA82C A82C 999 1125 

SA906 A906 1080 1337 1799 1897 

SA909 A909 1282 1381 

SA96B A96B 563 975 982 1281 1404 

SA9A5 A9A5 1069 1175 

SA9C2 A9C2 1877 
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SA9DA A9DA 1872 

SAAID AAID 1499 1503 

SAA86 AA86 1582 

SAAD7 AAD7 622 1000 1604 

SABIE ABIE 635 642 1733 1932 4560 

SAB21 AB21 1598 1620 1782 

SAB3B AB3B 1621 1678 1807 

SAB45 AB45 623 1806 1843 

SAB47 AB47 628 1016 1062 1638 1642 1694 

SABCE ABCE 1768 1778 

SABF9 ABF9 1786 1844 

SACOF ACOF 1756 

SAD24 AD24 1944 1996 

SAD8A AD8A 1095 1113 3042 3590 3634 

SAD8D AD8D 1094 2069 2136 2372 2656 2974 2999 3009 3074 

SAD8F AD8F 2348 3350 3422 

SAD90 AD90 1462 2405 

SAD9E AD9E 1370 1459 1615 2000 2225 2346 2655 

SAE20 AE20 2071 

SAE33 AE33 2098 

SAE38 AE38 1115 

SAE83 AE83 2033 3359 

SAEBD AEBD 1779 

SAEF7 AEF7 2706 2975 3544 

SAEFA AEFA 2224 2345 2970 

SAEFD AEFD 1894 2347 2463 3525 3636 

SAEFF AEFF 1093 1186 1375 1454 1591 1748 1765 1781 2977 2993 

SAF14 AF14 2274 2303 

SAF84 AF84 2280 2309 

SB08B B08B 1450 1820 1947 2255 2973 

SB090 B090 2465 

SB092 B092 2996 

SB113 B113 2168 2477 2485 2491 

SB194 B194 2746 2755 

SB1B2 B1B2 2685 

SB1B8 B1B8 3591 

SBIBF BIBF 1470 2206 2383 2391 2647 

SB34C B34C 2791 2861 

SB355 B355 2882 

SB3A6 B3A6 1742 1783 2969 

SB3E1 B3E1 2968 3003 

SB475 B475 1555 3128 3373 

SB47D B47D 3474 3494 

SB487 B487 1619 1683 2196 3081 

SB48D B48D 1870 

SB4F4 B4F4 3089 

SB525 B526 584 2932 3185 

SB5BD B5BD 3222 

SB5C7 B5C7 3210 3269 

SB67A B67A 1560 3374 

SB688 B688 3131 

SB68C B58C 3378 3507 

SB6A3 B5A3 3570 

SB6A6 B6A6 1492 1687 2420 2931 

SB6AA B6AA 2426 3377 3381 3497 

SB6DB B6DB 1568 3427 

SB761 B761 3484 3512 3527 

SB782 B782 3567 3578 3599 

SB79B B79B 1664 

SB79E B79E 1393 1588 1746 1763 2357 3526 3637 
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SB7A1 B7A1 3470 

SB7E2 B7E2 1871 2197 

SB7EB B7EB 3671 3679 

SB7F1 B7F1 3684 

SB7F7 B7F7 3635 3659 

SB849 B849 4603 

SB850 B850 3958 

SB867 B867 1970 3697 3952 3964 

SB877 B877 4092 

SB947 B947 3779 

SB94D B94D 4380 

SB96F B96F 4291 

SB999 B999 3713 4385 

SB9B0 B9B0 3752 4395 

SB9EA B9EA 4799 

SBA28 BA28 4584 4802 4845 

SBA59 BA59 3983 3985 3987 3989 

SBA5E BASE 3991 3996 

SBA8C BA8C 3701 3718 3969 4112 

SBAB7 BAB7 3976 4123 

SBAE2 BAE2 1500 1514 4480 4493 4597 

SBAED BAED 1509 

SBAFE BAFE 4476 4600 

SBBOF BBOF 3955 

SBBA2 BBA2 1108 1964 2176 2335 4107 4775 

SBBD4 BBD4 3028 4230 4786 

SBBFC BBFC 2390 3724 

SBBFE BBFE 4796 

SBCOC BCOC 1504 4084 4102 4503 4772 

SBCIB BCIB 1469 2116 4118 4239 4276 

SBC23 BC23 4849 

SBC2B BC2B 1114 3940 4308 4340 

SBC49 BC49 4558 

SBC5B BC5B 2413 2667 4589 4594 4792 

SBC5D BC5D 1973 

SBC9B BC9B 1515 2669 3646 4405 4604 

SBCCC BCCC 4789 

SBCF3 BCF3 1875 2166 3622 

SBDC2 BDC2 639 

SBDCD BDCD 1012 

SBDDA BDDA 4548 

SBDDD BDDD 1618 

SBDDF BDDF 3076 4559 

SBE68 BE68 2287 

TAOOC AOOC 1170 1172 

TA080 A080 2067 2088 2094 2096 2107 

TA09E A09E 828 860 862 1053 1060 

TA19E A19E 433 

TAIAC AlAC 434 

IA1B5 A1B5 435 

TA1C2 A1C2 436 

TAIDO AIDO 437 

TA1E2 A1E2 438 

TAIFO AlFO 439 

TAIFF AlFF 440 

TA210 A210 441 

TA225 A225 442 

TA235 A235 443 

TA23B A23B 444 

TA24F A24F 445 
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TA25A 


A25A 


446 






TA26A 


A26A 


447 








A272 


448 








A27F 


449 






TA290 


A290 


450 






IA29D 


A29D 


451 






TA2AA 


A2AA 


452 






TA2BA 


A2BA 


453 






TA2C8 


A2C8 


454 






TA2D5 


A2D5 


455 






TA2E4 


A2E4 


456 






TA2ED 


A2ED 


457 






TA300 


A300 


458 






TA30E 


A30E 


459 






IA31E 


A31E 


460 






TA324 


A324 


461 






TA328 


A328 


615 


617 




TA364 


A364 








TA369 


A369 


633 


634 




TA371 


A371 


4546 


4547 




TA375 


A376 


640 


641 




TA381 


A381 


1225 


1226 




TA383 


A383 


462 






TACFC 


ACFC 


1930 


1931 




TADOC 


ADOC 


1731 


1732 




TAEA8 


AEA8 


2174 


2175 




TB1A5 


B1A5 


2665 


2666 




TB9BC 


B9BC 


1106 


1107 


3956 


TB9C1 


B9C1 


3959 


3960 




TB9D6 


B9D6 


3950 


3951 




TB9DB 


B9DB 


3953 


3954 




TB9E0 


B9E0 


3962 


3963 




TB9E5 


B9E5 


3967 


3968 




TBAr9 


BAF9 


4103 


4104 




TBDB3 


BDB3 


4592 


4593 




TBDB8 


BDB8 


4587 


4588 




TBDBD 


BDBD 


4582 


4583 




TBFll 


BFll 


3695 


3696 


4773 


TBF16 


BF16 


4636 


4639 


4642 


TBFBF 


BFBF 


4843 


4844 




W0314 


0314 








W0316 


0316 








W0318 


0318 








W031A 


031 A 








W031C 


031C 








W031E 


031E 








W0320 


0320 








W032a 


0322 








W0324 


0324 








W0326 


0326 








W0328 


0328 








W&32A 


032A 








W032C 


032C 








W032E 


032E 








W0330 


0330 








W0332 


0332 








WA642 


A642 


240 






WA65E 


A65E 


234 






WA69C 


A69C 


233 






WA742 


A742 


207 







WA78B 


A78B 


1100 1101 


WAS ID 


A81D 


218 


WA82F 


A82F 


222 


WAS 31 


A831 


206 


WA857 


A857 


232 


WAS 71 


A871 


216 


WA883 


A883 


219 


WA8A0 


A8A0 


215 


WA8D2 


A8D2 


220 


WA8F8 


A8F8 


209 


WA928 


A928 


217 


WA93B 


A93B 


221 


WA94B 


A94B 


223 


WA9A5 


A9A5 


214 


WAA80 


AA80 


230 


WAA86 


AA86 


235 


WAAAO 


AAAO 


231 


WAB7B 


AB7B 


239 


WABA5 


ABAS 


210 


WABBF 


ABBF 


211 


WAC06 


AC06 


213 


WADIE 


ADIE 


208 


WAED4 


AED4 


296 


WAFE6 


AFE6 


290 


WAFE9 


AFE9 


287 


WB016 


B016 


299 


WB081 


B081 


212 


WB37D 


B37D 


248 


WB39E 


B39E 


249 


WB3B3 


B3B3 


228 


WB465 


B465 


260 


WB6EC 


B6EC 


263 


WB700 


B700 


264 


WB72C 


B72C 


265 


WB737 


B737 


266 


WB77C 


B77C 


259 


WB78B 


B78B 


262 


WB7AD 


B7AD 


261 


WB80D 


B80D 


258 


WB824 


B824 


229 


WB82D 


B82D 


224 


WB853 


B853 


275 


WB86A 


B86A 


272 


WB9EA 


B9EA 


252 


WBA2B 


BA2B 


278 


WBB12 


BB12 


281 


WBC39 


BC39 


244 


WBC58 


BC58 


246 


WBCCC 


BCCC 


245 


WBF71 


BF71 


250 


WBF7B 


BF7B 


284 


WBFB4 


BFB4 


293 


WBFED 


BFED 


253 


WE097 


E097 


251 


WE12A 


E12A 


236 


WE156 


E156 


226 


WE165 


E165 


227 


WE168 


E168 


225 


WEIBE 


ElBE 


237 


WE1C7 


E1C7 


238 



WE264 E264 254 

WE26B E26B 255 

WE2B4 E2B4 256 

WE30E E30E 257 

WE37B E37B 197 

WE394 E394 196 

X0054 0054 2371 

X0073 0073 652 981 1112 1157 1174 1184 1403 1444 1676 1745 1847 1995 
2049 2164 2177 2237 2342 2484 2489 2509 2654 3589 4440 4446 
4458 

X0079 0079 977 1109 1274 1371 1386 1599 1831 1878 1892 1913 1992 2036 

2466 2473 2476 2702 3047 3522 3595 3621 3682 

X0080 0080 1524 

XOlOO 0100 1966 1976 1978 1980 1982 1984 4569 4625 4630 4666 4671 4683 

4701 4715 4717 4718 4719 

XOlOl 0101 485 2695 2700 4699 

X0102 0102 490 497 2693 2698 4711 

X0103 0103 492 494 4709 

X0104 0104 4713 

XOIFE OlFE 730 

XOIFF OlFF 731 1785 

X0200 0200 715 738 781 797 826 836 837 849 854 864 866 1629 

1754 1795 1836 

X0300 0300 608 

X0302 0302 645 

X0304 0304 790 

X0306 0306 1036 

X0308 0308 1153 

X030A 030A 2158 

X0310 0310 247 

X9FEA 9FEA 2367 2369 

XEOOO EOOO 4850 

XE043 E043 3961 

XEIOC ElOC 1710 

XE112 E112 778 

XE118 E118 1594 

XEllE EllE 1750 1767 

XE124 E124 1835 

XE386 E386 1034 1229 

XFF90 FF90 644 1252 

XFFB7 FFB7 1789 2330 

XFFCC FFCC 619 1770 

XFFDB FFDB 1519 

XFFDE FFDE 2316 

XFFEl FFEl 1202 

XFFE7 FFE7 928 

XFFFO FFFO 1652 1662 2952 

ZOO 0000 3141 

ZOl 0001 3143 3751 3775 3776 3891 3894 3902 3904 3905 3906 

Z02 0002 3145 3772 3773 3889 3892 3907 

Z03 0003 3769 3770 3887 3890 3908 

Z04 0004 3766 3767 3885 3888 3909 

Z07 0007 1352 1356 1357 1422 1440 1855 1857 1861 2386 2399 3098 3108 
4414 4795 

Z08 0008 805 848 851 1354 1355 1358 1361 1864 2389 2394 3099 3110 

Z09 0009 1663 1670 

ZOB OOOB 665 720 736 820 832 858 2382 2385 2388 2393 2395 2398 

2400 2630 2705 2747 2771 2795 2836 2869 

ZOC OOOC 2474 2673 2712 2744 2778 2829 

ZOD OOOD 1457 1616 1848 2011 2057 2078 2163 2270 2418 2482 2496 2676 
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2708 


2929 


2943 


3151 


3572 
















ZOE 


OOOE 


1455 


1876 


2292 


2483 


2503 


2674 


2710 












ZOF 


OOOF 


796 


808 


344 


996 


1019 


1021 


1043 


3161 


3183 


3187 






ZIO 


0010 


955 


1068 


2500 


2512 


2518 


2972 


2995 












Zll 


0011 


1716 


1817 


1833 


1850 


1921 
















Z12 


0012 


2140 


2456 






















Z13 


0013 


621 
1797 


1593 
1804 


1632 
1841 


1639 
1928 


1703 


1726 


1749 


1757 


1766 


1769 


1772 


1787 


Z14 


0014 


728 
1441 


893 
3649 


986 
3657 


990 
3661 


1008 
3664 


1285 
3674 


1418 
3687 


1427 


1432 


1433 


1437 


1439 


215 


0015 


7 29 
3650 


887 
3655 


987 
3666 


991 


1006 


1287 


1419 


1423 


1435 


1436 


1438 


1443 


Z16 


0016 


944 


3135 


3156 


3208 


3462 
















Z17 


0017 


3152 


3460 


3464 




















Z18 


OOlS 


3458 
























Z19 


0019 


943 


3204 


3205 




















Zll 


0022 


523 


533 


539 


564 


566 


616 


625 


675 


698 


702 


750 


754 






758 


762 


765 


769 


770 


1102 


1424 


1429 


1431 


1434 


1523 


1693 






2062 


2064 


2110 


2111 


2127 


2794 


2866 


2895 


3136 


3206 


3216 


3235 






3238 


3241 


3244 


3248 


3256 


3260 


3261 


3275 


3278 


3286 


3289 


3292 






3305 


3313 


3314 


3402 


3408 


3425 


3430 


3433 


3436 


3452 


3502 


3503 






3581 


3606 


3609 


4028 


4031 


4034 


4037 


4040 


4048 


4199 


4202 


4205 






4208 


4211 


4216 


4240 


4244 


4247 


4250 


4255 


4258 








Z23 


0023 


618 


673 


700 


706 


751 


766 


771 


1103 


2113 


3207 


3217 


3236 






3263 


3264 


3306 


3316 


3317 


3403 


3426 


3453 


3505 


3611 


4029 


4200 






4241 
























Z24 


0024 


684 
4355 


703 
4361 


1961 


3610 


3617 


3620 


3625 


4334 


4337 


4341 


4346 


4351 


Z25 


0025 


677 


696 


707 


3615 


4335 
















226 


0026 


3978 


4013 


4015 


4016 


4187 
















Z27 


0027 


3979 


4010 


4012 


4017 


4189 
















Z28 


0028 


2o80 


2897 


2917 


3980 


4007 


4009 


4018 


4191 










Z29 


0029 


2900 


2920 


3981 


4004 


4006 


4019 


4143 


4193 










Z2B 


002E 


748 


378 


912 


914 


915 


961 


1193 


1296 










Z2C 


002C 


749 


879 


919 


964 


1195 


1297 














Zlb 


002 D 


674 


682 


683 


692 


718 


734 


918 


933 


1547 


2519 


3214 




Z2E 


002E 


685 


687 


722 


735 


921 


934 


1543 


2520 


3215 








Z2F 


002F 


935 


2525 


2578 


2596 


2713 


3220 














Z30 


0030 


936 


2523 


2579 


2597 


2714 


3218 














Z31 


0031 


509 


732 


937 


2582 


2719 


2807 


2821 


2935 


3172 


3200 


3232 




232 


0032 


510 


733 


938 


2583 


2717 


2808 


2825 


2938 


3169 


3201 


3230 




233 


0033 


575 
3446 


596 


931 


1540 


2934 


3165 


3174 


3195 


3296 


3337 


3443 


3447 


Z34 


0034 


572 


593 


932 


1535 


2937 


3166 


3175 


3196 


3293 


3338 


3441 


3450 


Z35 


0035 


3176 


3409 


3414 


3415 


















Z36 


0036 


3177 


3417 






















Z37 


0037 


929 


3193 






















Z38 


0038 


930 


3194 






















Z39 


0039 


1090 


1144 


1219 


1244 


1270 


1284 


1326 


1723 


1979 


4550 






Z3A 


003A 


636 
2958 


656 
4549 


1088 


1147 


1214 


1220 


1245 


1268 


1286 


1328 


1724 


1981 


Z3B 


0031, 


1221 


1242 






















Z3G 


003C 


1222 


1243 






















Z3D 


003D 


1131 


1217 


1239 


1734 


















Z3E 


003E 


954 


1132 


1218 


1235 


1735 
















Z3F 


003F 


1721 


1907 






















Z40 


0040 


1722 


1911 






















Z41 


0041 


1198 


lol2 






















Z42 


0042 


1195 


1813 






















Z43 


0043 


1818 


1827 


1886 


1919 


1926 
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Z44 0044 1819 182S 1887 1920 

Z45 0045 2268 2475 2504 2505 2527 2564 2599 2683 2687 2724 2760 2873 

Z46 0046 2269 2510 2530 2565 2602 2681 2689 2726 2765 2876 

Z47 0047 2d24 2885 2890 2981 3016 3023 3040 4661 4673 

Z48 0048 2625 2888 2979 3021 3027 3038 

Z49 0049 491 496 1011 1014 1048 1118 1451 1473 1476 1571 1574 1577 

1821 1948 1968 3680 3689 4234 
Z4A 004A 488 493 1116 1312 1452 1486 1822 1949 1969 3685 3688 4235 

Z4B 004B 1825 1888 2073 2137 

Z4C 004c 1826 1889 

Z4li 004D 2035 2045 2046 2048 2052 2086 2099 2419 

74E 004E 2997 3006 3011 3015 3019 3033 3036 3044 3057 3060 3063 3066 

3069 3199 3307 3324 3331 3345 3350 4784 4785 4790 4791 4800 
4801 

Z4F 004F 2998 3004 3013 3046 3198 3308 3323 

Z50 0050 1556 1566 1570 1573 1576 3084 3375 3485 3488 3495 3514 3534 

3554 

Z51 0051 1557 1567 3085 3376 3496 3556 

Z53 0053 3213 3227 3309 3311 

Z55 0055 2368 3310 3326 3330 3342 3548 3557 

Z56 0056 2370 3727 3742 3764 3804 

Z57 0057 581 4228 4229 

Z58 0056 536 540 545 549 721 2590 2593 2637 2802 2814 2884 3224 

3228 3245 3246 3267 3339 3344 

Z59 0059 542 551 726 2591 2594 2638 2797 2799 2816 2819 2887 3225 

3229 3249 3250 3265 33 >0 3347 3348 

Z5A 005A 521 531 534 544 548 719 2584 3333 

Z5B 005B 525 536 550 723 2585 3336 

Z5C 005C 4223 

Z5D 005D 2285 2902 2S23 4430 4472 4492 4586 4598 4601 4606 4618 4667 

Z5E 005E 2261 4464 4470 4473 4477 4481 4514 4525 4532 4617 4691 4696 

Z5F 005K 522 672 678 580 691 739 881 883 888 895 399 902 

997 1002 1005 1024 1027 1030 1031 1300 2522 2528 2532 2536 
2580 2600 2603 2606 2603 2610 2612 2614 2618 2633 2715 2722 
2727 2730 2732 2735 2749 2761 2766 2775 2787 2790 2822 2824 
2828 2835 2846 2851 2896 2899 3202 3301 3303 3332 4467 4468 
4490 

Z60 0060 526 676 688 882 1032 1303 2521 2581 2621 2634 2716 2736 

2827 3203 3298 3304 3334 4268 4278 4457 4460 4518 

Z61 0061 587 1376 1496 1561 1562 2125 2155 2421 2431 2435 2662 3092 

3115 3140 3643 3710 3733 3736 3798 3830 3834 3836 3945 3949 
4050 4058 4065 4093 4121 4122 4124 4217 4257 4287 4297 4322 
4344 4371 4402 4412 4509 4574 4811 

Z62 0062 1098 1099 2123 2321 2422 2448 2944 3090 3102 3142 3477 3777 

3783 3786 3815 3817 3827 3838 3850 3852 3876 3990 4129 4167 
4188 4214 4254 4312 4316 4348 4392 4393 4394 4419 4554 4644 
4646 

Z63 0063 1517 2121 2318 2423 2945 3091 3103 3144 3774 3785 3788 3812 

3814 3826 3839 3853 38 i5 3874 3988 4132 4164 4190 4209 4249 
4314 4352 4420 4555 4641 4643 

Z64 0064 1472 1516 1534 1539 1546 1549 1554 2119 2210 2252 2258 2266 

2295 2298 2317 2333 2353 2384 2397 2648 2697 2843 2863 3082 
3147 3357 3368 3423 3592 3647 3771 3787 3790 3809 3811 3825 
3840 3856 3858 3872 3t86 4135 4161 4192 4206 4246 4321 4356 
4421 4638 4640 

Z65 0065 1399 1475 1518 1542 1550 2117 2207 2254 2260 2267 2319 2334 

2351 2387 2392 2649 2699 2845 lab! 3083 3148 3355 3424 3521 
3537 3539 3594 3648 3768 3789 3792 3806 3808 3824 3841 3859 
3861 3870 3984 4138 4158 4194 4203 4243 4320 4362 4413 4422 
4634 4637 
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ZiOO 


0066 


L096 


1497 


1967 


2 106 


2153 


2437 


2443 


2657 


3641 


3705 


3707 


3738 






J / 


JO't / 




4042 


4070 


4073 


4212 


4252 


4265 


4259 


4324 


4329 






4342 


4364 


4375 


4390 


4407 


4408 


4507 


4566 


4570 


4813 


4815 




7 1 7 


uuo / 




4483 
























0068 


3893 


4267 


4279 


4379 


4386 


4396 




















24 1 1 




3729 


4'J49 


4055 


4780 














006a 


7 1 A A 


9 A HQ 


2410 


JO iO 


4014 


4046 


4128 


4 152 


4 166 


4 168 






Z6B 


006E 


1 A ^. 


JO u 


Anil 


Afl'^ft 
'tU Jo 


4131 


4 15 i 


4 163 


4165 










Z6C 


006C 


1 AK 


■"> A 9 A 


9 A 97 
ZhZ / 


9 A A 7 


Jo tu 


4008 


4035 


4134 


4 150 


4160 


4162 




Z6D 


UUDb 




9 A9 
Z*tZ J 


2428 


3807 


4005 


4032 


4137 


4 149 


4157 


4 159 






Z6E 


006E 


Zi DZ 


9 An? 


'17nk 
J / Uo 


17 "57 

J / J/ 


AflA 1 


4044 


4264 


4506 


4787 








Z6F 


006F 


ID JO 


9 1 ^A 


J LUU 


J lUO 


1117 

J i 1 / 


11 9Q 

ji zy 


J JOZ 


3366 


3379 


3389 


3392 


3395 






3709 


3753 


4043 


4069 


409 1 


A 1 fit. 














Z70 


0070 


1559 


2273 


3101 


3 119 


3123 


3130 


1 1 A Q 


11 AA 


iiRn 

J JoU 


17 9 A 
J / ZD 


17 Aa 


17 ^fi 






3765 


3791 


3793 


3805 


3823 


3842 


3862 


3864 


3865 


3886 


io An 


1Q 9 






4020 


4 180 


42 18 


4259 


4271 


42S2 


4289 


A 19 1 
H JZ J 


A IAD 
4 JOU 


A A .'lA 


4846 




Z71 


0071 


SIS 


833 


149b 


1501 


1502 


15 10 


2283 


2770 


2792 


2811 


2838 


2858 






2868 


29 12 


31 18 


3604 


3626 


4571 


4622 


4631 


4662 


4672 


4682 




Z72 


0072 


2758 


2793 


2810 


28 17 


2839 


2857 


287 1 


29 13 


3122 


3605 


3627 




27A 


007A 


650 


794 


822 


857 


ii69 


963 


1083 


1 126 


1134 


1137 


1143 


1 146 






1 149 


1 150 


1212 


1240 


1266 


129 1 


1302 


1330 


1340 


1341 


1359 


1 7 Ik 
i / JD 






1823 


lo29 


1845 


1853 


1865 


1884 


1890 


1903 


1906 


1909 


1983 


2022 






2025 


2081 


2084 


2191 


2235 


2935 


3031 


3034 


3052 


3602 


3607 


3628 






4529 
























Z7B 


007E 


651 


867 


966 


1085 


1127 


1152 


1213 


1241 


1264 


1292 


1305 


1332 






1343 


1737 


1824 


1830 


1846 


1866 


1835 


1891 


1985 


2024 


2083 


2192 






2983 


3029 


3037 


3054 


3603 


3612 


3629 













End, Part One 
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0000 
0001 



zoo 

ZOl 



0002 

0003 

0004 

0005 

0006 

0007 

OOOA 

0012 

0013 

0016 

0018 

0022 

0023 

002B 

002C 

002D 

002E 

0033 

0034 

0037 

0038 

0049 

004A 

004E 

0053 

0054 

0056 

0057 

005C 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

006E 

006F 

0070 

0071 

0072 

0073 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 Z02 

17 Z03 

18 Z04 

19 Z05 

20 Z06 

21 Z07 

22 ZOA 

23 Z12 

24 Z13 

25 Z16 

26 Z18 

27 Z22 

28 Z23 

29 Z2B 

30 Z2C 

31 Z2D 

32 Z2E 

33 Z33 

34 Z34 

35 Z37 

36 Z38 

37 Z49 

38 Z4A 

39 Z4E 

40 Z53 

41 Z54 

42 Z56 

43 Z57 

44 Z5C 

45 Z61 

46 Z62 

47 Z63 

48 Z64 

49 Z65 

50 Z66 

51 Z67 

52 Z68 

53 Z69 

54 Z6E 

55 Z6F 

56 Z70 

57 Z71 

58 Z72 

59 Z73 



.L 
.H 

CBM-64-Part Two 



bit 
bit 
bit 
bit 
bit 
bit 
bit 
bit 



$00 
$01 
(output) 
(output) 
(output) 
(output) 
(input) 
(output) 
unused 
unused 
$02 
$03 
$04 
$05 
$06 
$07 
$0A 
$12 
$13 
$16 
$18 
$22 
$23 
$2B 
$2C 
$2D 
$2E 
$33 
$34 
$37 
$38 
$49 
$4A 
$4E 
$53 
$54 
$56 
$57 
$5C 
$61 
$62 
$53 
$64 
$65 
$66 
$67 
$68 
$69 
$6E 
$6F 
$70 
$71 
$72 
$73 



;6510 data direction register 
;6510 I/O register 

= RAM at $AOOO-$BFFF (BASIC area) 
= RAII at $EOOO-$EFFF (Kernal area) 
- access CRT shapes at $DOOO-$DFFF 
cassette write line 
cassette sense line 
cassette motor control 



dummy address for offset 
fixed-float vector 
high byte of same 
fixed/float vector 
high byte of same 
search character 
0-load, l=verify 
sign flag 
CMD file number 

pointer into temporary string stack 
high byte of last temp string vector 
utility pointer area 

pointer to start of BASIC 
high byte of same 
pointer start of variables 
high byte of same 

pointer to start of string storage 

high byte of same 

pointer to limit of memory 

high byte of same 

file/device save area 

second file/device save area 

misc. work area 

default step value 

JMP vector for functions 

misc. numeric work area 

floating point accu # 1 - exponent 
flp # 1 - mantissa 



flp # 1 - sign 

series evaluation constant pointer 
flp accu t 1 overflow 
flp accu # 2 thru Z6E 

;sign comparison flp accu #1 vs accu # 2 

; flp accu # 1 guard byte 

; table pointer for EXP/SIN/ATN 

;high byte of same 

; character fetch code, beginning address 
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007A 


60 


Z7A 




$7A 


007B 


61 


Z7B 


- 


$7B 


008B 


62 


Z8B 




$8B 


0090 


63 


Z90 




$90 


0091 


64 


Z91 




$91 


0092 


55 


Z92 




$92 


0093 


66 


Z93 


= 


$93 


0094 


67 


Z94 


'- 


$94 


0095 


68 


Z95 




$95 


0096 


69 


Z96 


= 


$96 


0097 


70 


Z97 




$97 


0098 


71 


Z98 




$98 


0099 


72 


Z99 




$99 


009A 


73 


Z9A 


= 


$9A 


009B 


74 


Z9B 




$9B 


009C 


75 


Z9C 




$9C 


009D 


76 


Z9D 




$9D 


009E 


77 


Z9E 




$9E 


009F 


78 


Z9F 




$9F 


OOAO 


79 


ZAO 




$A0 


OOAl 


80 


ZAl 


• 


$A1 


00 A2 


81 


ZA2 




$A2 


00A3 


82 


ZA3 


- 


$A3 


00A4 


83 


ZA4 


=■ 


$A4 


00A5 


84 


ZA5 


= 


$A5 


00A6 


85 


ZA6 


=■ 


$A6 


0OA7 


86 


ZA7 


- 


$A7 


00A8 


87 


ZA8 


= 


$A8 


00A9 


88 


ZA9 




$A9 


OOAA 


89 


ZAA 


= 


$AA 


OOAB 


90 


ZAB 




$AB 


OOAC 


91 


ZAC 




$AC 


GOAD 


92 


ZAD 


■ 


$AD 


OOAE 


93 


ZAE 




$AE 


GOAF 


94 


ZAF 




$AF 


OOBO 


95 


ZBO 




$BG 


GOBI 


96 


ZBl 




$B1 


00B2 


97 


ZB2 




$B2 


G0B3 


98 


ZB3 




$B3 


0OB4 


99 


ZB4 


- 


$B4 


0GB5 


100 


ZB5 




$B5 


0GB6 


101 


ZB6 




$B6 


00B7 


102 


ZB7 




$37 


0GB8 


103 


ZB8 




$B8 


00B9 


104 


ZB9 




$B9 


OOBA 


105 


ZBA 


= 


$BA 


OOBB 


106 


ZBB 


- 


$BB 


GOBC 


107 


ZBC 


- 


$BC 


GOBD 


108 


ZBD 




$BD 


GOBE 


109 


ZBE 


- 


$BE 


GOBF 


110 


ZBF 




$BF 


OOCO 


111 


ZCG 


- 


$C0 


OOCl 


112 


ZCl 


- 


$C1 


00C2 


113 


ZC2 




$C2 


0GC3 


114 


ZC3 




$C3 


GGC4 


115 


ZC4 




$C4 


00C5 


116 


ZC5 




$C5 


00C6 


117 


ZC6 




$C6 


00C7 


118 


ZC7 




$C7 


00C8 


119 


ZC8 




$C8 



current character address 

high byte of same 

RND seed value 

status word ST 

keyboard scan results 

tape timing speed correction 

load=0, verlfy=l 

serial output deferred character flag 
serial deferred character 
itape sync established flag 
: register save area 
;number of files open 
; Input device 
;output device 
Itape character parity 
;tape byte available flag 
;dlrect/run mode (80/00) 
Itape pass 1 error log/char buffer 
Itape pass 2 error log 
1 jiffy clock - high byte 
1 jiffy clock - middle byte 
ijlffy clock - low byte 
; serial bit count/EOI flag 
; serial byte read/ tape cycle count 
I serial bit count/ tape hdr block count 
Itape buffer pointer 
Itape leader count/RS-232 input bit 
Itape write new byte/read error/bit count 
Itape write cycle/read error/start bit 
lRS-232 input byte/tape scan/hdr count 
iwrite leader length/read checksum/ parity 
Itape buffer/ scrolllng/I-0 pointer 
I high byte of same 
Itape end address/end of 1/0 area 
Ihlgh byte of same 
Itape speed correction value 
iwork area for tape speed correction 
Itape buffer pointer 
I high byte of same 

lRS-232 transmit bit count/tape sync 

lRS-232 next bit to send/saved tape sync 

I read char error/RS-232 output buffer 

I number of characters in file name 

I current logical file 

I current secondary address 

I current device 

I pointer to file name 

I high byte of same 

;RS-232 xmlt parity/ tape read-write buffer 
Itape phase 

Itape input byte buffer 

Itape motor Interlock 

;I/0 start address/work address 

ihlgh byte of same 

;kemal setup pointer 

;high byte of same 

ilast key pressed 

jkeyboard buffer count 

; reverse video switch 

;end of line pointer for input 
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00C9 


120 


ZC9 




$C9 


OOCA 


121 


ZCA 




$CA 


OOCB 


122 


ZCB 




$CB 


OOCC 


123 


zee 




$CC 


OOCD 


124 


2 CD 




$CD 


OOCE 


125 


ZCE 




$CE 


OOCF 


126 


ZCF 




$CF 


OODO 


127 


ZDO 




$D0 


OODl 


128 


ZDl 




$Dl 


00D2 


129 


ZD2 




$D2 


00D3 


130 


ZD3 




$D3 


00D4 


131 


ZD4 




$D4 


00D5 




ZD5 






00D6 


133 


ZD6 




9U0 


onn7 
uuu/ 


LjH 


ZD7 




$D7 


00D8 




ZD8 




$D8 


00D9 


136 


ZD9 




$D9 


OODA 


1 "37 


ZDA 




$DA 


OOFI 


138 


ZF 1 




$F1 


OOF3 




ZF3 




$F3 


00F4 


140 


ZF4 




SF4 


OOFS 


141 


ZF5 




$F5 


00F6 


142 


ZF6 




$F6 


00F7 


143 


ZF7 




$F7 


OOFS 


144 


ZF8 




$F8 


00F9 


145 


ZF9 




$F9 


OOF A 


146 


ZFA 




$FA 



; input cursor, line number 

;input cursor, position on line 

;key pressed - $40 if no key 

; cursor enable - = flash 

; cursor flash timing countdown 

; character under cursor 

; cursor blink phase 

;screen-kbd flag/ screen line length 

[pointer to screen line 

;high byte of same 

; position of cursor on line 

; string flag 

; screen line length current line 

; cursor line number 

; character-bit buffer/checksum 

;// of outstanding inserts 

; screen line table thru $F0 

; dummy screen link 
; color memory pointer 
high byte of same 
keyboard table address 
high byte of same 

, RS-232 receive buffer base address 
high byte of same 

,RS-232 transmit buffer base address 
high byte of same 
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0014 


148 


X0014 


= 


$0014 


0079 


149 


X0079 


= 


$0079 


0100 


150 


XOlOO 


= 


$0100 


OlFC 


151 


XOIFC 




$01FC 


OlFD 


152 


XOIFD 


= 


$01FD 


0200 


153 


X0200 


= 


$0200 


0259 


154 


X0259 




$0259 


0263 


155 


X0263 




$0263 


026D 


156 


X026D 


= 


$026D 


0277 


157 


X0277 


= 


$0277 


0281 


158 


X0281 


= 


$0281 


0282 


159 


X0282 


= 


$0282 


0283 


160 


X0283 


= 


$0283 


0284 


161 


X0284 




$0284 


0285 


162 


X0285 


= 


$0285 


0286 


163 


X0286 


= 


$0286 


0287 


164 


X0287 


= 


$0287 


0288 


165 


X0288 


= 


$0288 


0289 


166 


X0289 


= 


$0289 


02 8 A 


167 


X028A 




$028A 


028B 


168 


X028B 


= 


$028B 


028C 


169 


X028C 


= 


$028C 


028D 


170 


X028D 


= 


$028D 


028E 


171 


X028E 


= 


$028E 


028F 


172 


X028F 


= 


$028F 


0290 


173 


X0290 


= 


$0290 


0291 


174 


X0291 


= 


$0291 


0292 


175 


X0292 


= 


$0292 


0293 


176 


X0293 


= 


$0293 


0294 


177 


X0294 


= 


$0294 


0295 


178 


X0295 


= 


$0295 


0296 


179 


X0296 


= 


$0296 


0297 


180 


X0297 


= 


$0297 


0298 


181 


X0298 


= 


$0298 


0299 


182 


X0299 




$0299 


029A 


183 


X029A 


- 


$029A 


029B 


184 


X029B 


= 


$0293 


029C 


185 


X029C 


= 


$029C 


029D 


186 


X029D 


= 


$029D 


02 9E 


187 


X029E 


= 


$029E 


02 9F 


188 


X029F 




$029F 


02A0 


189 


X02A0 




$02A0 


02A1 


190 


X02A1 




$02A1 


02A2 


191 


X02A2 




$02A2 


02A3 


192 


X02A3 


- 


$02A3 


02A4 


193 


X02A4 


= 


$02A4 


02A5 


194 


X02A5 


= 


$02A5 


02A6 


195 


X02A6 


= 


$02A6 


0300 


196 


X0300 




$0300 


030C 


197 


X030C 


= 


$030C 


030D 


198 


X030D 




$030D 


030E 


199 


X030E 




$030E 


030F 


200 


X030F 




$030F 


0310 


201 


X0310 




$0310 


0311 


202 


X0311 




$0311 


0312 


203 


X0312 




$0312 


0314 


204 


X0314 




$0314 


0315 


205 


X0315 




$0315 


0316 


206 


X0316 




$0316 


0318 


207 


X0318 




$0318 



integer value (SYS address) 

fetch current character 

flp to ASCII work area/ tape error log 

prefix to line in input buffer 

high byte of same 

BASIC input buffer 

logical file table 

device # table 

secondary address table 

keyboard buffer 

start of memory for operating system 
high byte of same 

;top of memory for operating system 

;high byte of same 

1 serial bus timeout flag (not used) 

; current color code 

; color under cursor 

; screen memory page 

;maximum size of keyboard buffer (10) 

;key repeat flag ($8X=repeat all keys) 

; repeat key frequency counter 

; repeat key delay counter 

;keyboard shift/control flag 

;last keyboard shift pattern 

;address of keyboard decode routine 

;high byte of same 

;shift mode switch ($80=locked) 

;auto scroll flag ($00=on) 

;RS-232 Control Register 

;RS-232 Command Register 

;non-standard bit time 

;hlgh byte of same 

;RS-232 Status Register 

; number of bits to send/receive 

;baud rate 

;high byte of same 

;RS-232 receive buffer input pointer 

;RS-232 receive buffer output pointer 

;RS-232 transmit buffer input pointer 

;RS-232 transmit buffer output pointer 

;IRQ vector save area 

;high byte of same 

; Internal ICR2 activity register 

; internal CRBl activity register 

; ICRl save area 

;CRA1 save area 

;pos first 40 column line after cursor 

;US/Intl machine flag ($00 = US) 

; error message link 

;save area for A register 

;save area for X register 

isave area for Y register 

;save area for SR (flag) register 

;USR jump link 

;low byte of USR jump address 
;high byte of USR jump address 
;IRQ vector 

;high byte if IRQ vector 
;BRK vector 
;NMI vector 
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U JlA 


208 


X031A 




$031A 


;OPEN vector 






X031C 




$031C 


; CLOSE vector 




210 


X031E 




$031E 


;set Input vector 


UJZU 


211 


X0320 




$0320 


;set output vector 


0322 


212 


X0322 




$0322 


;restore I/O devices to default vector 


0324 


213 


X0324 






; Input vector 


0326 


214 


X0326 




$0326 


; output vector 


0328 


215 


X0328 




$0328 


jtest STOP Key vector 


032A 


216 


X032A 




$032A 


;GET vector 


032C 


217 


X032C 




$032C 


; close all files and channels vector 


0330 


218 


X0330 




$0330 


;load RAM vector 


0332 


219 


X0332 




$0332 


;save RAM vector 
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8000 


221 


X8000 




$8000 


cartridge RESET vector 


8002 


222 


X8002 




$8002 


cartridge RESTORE (warm start) vector 


8004 


223 


X8004 




$8004 


cartridge identifier 


AOOO 


224 


XAOOO 




$A000 


begin BASIC vector 


A002 


225 


XA002 




$A002 


BASIC warm start vector 


A364 


226 


TA354 


= 


$A364 


message OK 


A376 


227 


TA376 




$A376 


message READY 


A408 


228 


XA408 




$A408 


array area overflow check 


A437 


229 


XA437 




$A437 


error message link 


A43A 


230 


XA43A 


— 


$A43A 


print error message 


A474 


231 


XA474 




$A474 


print READY, do warm start 


A483 


232 


WA483 




$A483 


standard BASIC warm start 


A52A 


233 


XA52A 


■ 


$A52A 


reset program ptrs and relink BASIC 


A533 


234 


XA533 




$A533 


relink BASIC 


A57C 


235 


WA57C 




$A57C 


crunch tokens 


A644 


236 


XA644 




$A644 


perform NEW 


A663 


237 


XA663 




$A663 


perform CLR 


A677 


238 


XA677 




$A677 


perform RESTORE, reset stack/ pgm ptrs 


A67A 


239 


XA67A 




$A67A 


reset stack and program pointers 


A68E 


240 


XA68E 




$A68E 


re-initialize current character ptr 


A71A 


241 


WA71A 




$A71A 


print tokens 


A7E4 


242 


WA7E4 


■ 


$A7E4 


execute a statement 


ABIE 


243 


XABIE 


■ 


$AB1E 


print string from AY 


AD8A 


244 


XAD8A 




$AD8A 


get next non-string value 


AD9E 


245 


XAD9E 


= 


$AD9E 


evaluate expression 


AE86 


246 


WAE86 




$AE86 


fetch arithmetic element 


AEFD 


247 


XAEFD 




$AEFD 


check next character for "," 


AF08 


248 


XAF08 


- 


$AF08 


print SYNTAX Error 


BIAA 


249 


WBIAA 


- 


$B1AA 


flp-fixed routine 


B248 


250 


WB248 


- 


$B248 


print ILLEGAL QUANTITY Error 


B391 


251 


WB391 


- 


$B391 


fixed-flp routine 


B6A3 


252 


XB6A3 


= 


$36 A3 


de-allocate temporary string storage 


B79E 


253 


XB79E 




$B79E 


fetch Integer value in X, check range 


B7F7 


254 


XB7F7 




$B7F7 


convert flp to integer 


B849 


255 


XB849 




$B849 


half round flp accu 


B850 


256 


XB850 




$B850 


subtract flp accu from # indexed by AY 


B853 


257 


XB853 




$B853 


perform diadic minus 


B867 


258 


XB867 




$B867 


add flp accu to # indexed by AY 


B8D7 


259 


XB8D7 




$B8D7 


perform postshift 


B9BC 


260 


TB9BC 




$B9BC 


flp literal 1 


BA28 


261 


XBA28 




$BA28 


multiply flp accu times # indexed by AY 


BAB9 


262 


XBAB9 




$BAB9 


add exponents 


BAD4 


263 


XBAD4 




$BAD4 


check sign of flp accu 


BB07 


264 


XBB07 




$BB07 


divide flp accu by # indexed by AY 


BBOF 


265 


XBBOF 




$BB0F 


divide # indexed by AY by flp accu 


BBA2 


266 


XBBA2 




$BBA2 


load flp accu with # indexed by AY 


BBC7 


267 


XBBC7 




$BBC7 


store flp accu at Z5C-60 


BBCA 


268 


XBBCA 




$BBCA 


store flp accu at Z57-5B 


BBD4 


269 


XBBD4 




$BBD4 


store flp accu in area Indexed by XY 


BCOC 


270 


XBCOC 




$BC0C 


move rounded flp accu into 2nd flp accu 


BCOF 


271 


XBCOF 




$BC0F 


move flp accu into 2nd flp accu 


BC2B 


272 


XBC2B 




$BC2B 


get sign of flp accu into A 


BCCC 


273 


XBCCC 




$BCCC 


perform INT 


BDCD 


274 


XBDCD 




$BDCD 


print # from AX 


BFB4 


275 


XBFB4 




$BFB4 


minus operator 


BFC4 


276 


TBFC4 




$BFC4 


polynome table for EXP 
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278 


;6567 


video chip 






279 










DOOO 


280 


XDOOO 




$D000 


;6567 video chip base address 


DOll 


281 


XDOll 




$D011 


;bit 4 = to disable video chip 


D012 


282 


XD012 




$D012 


;Raster Register 


D016 


283 


XD016 




$D016 


;bit 5 = to reset video chip 


D018 


284 


XD018 




$D018 


;memory pointers for video chip 


D019 


285 


XD019 




$D019 


; Interrupt Register 


D021 


286 
287 


XD021 

; 




$D021 


; Background # color 




288 


;6581 


Sound Interface Device 




289 


; 








D418 


290 


XD418 




$D418 


;mode/voluine for SID chip 




291 


) 








292 


;6526 


CIAl 






293 


> 








DCOO 


294 


XDCOO 




$DCOO 


;FA1 port A 


DCOl 


295 


XDCOl 




$DC01 


;PB1 port B 


DC02 


296 


XDC02 




$DC02 


;DDRA1 direction bits for port A 


DC03 


297 


XDC03 




$DC03 


;DDRB1 direction bits for port B 


DC04 


298 


XDC04 




$DC04 


;TAL1 timer A low 


DC05 


299 


XDC05 




$DC05 


;TAH1 timer A high 


DC06 


300 


XDC06 




$0CO6 


;TBL1 timer B low 


DC07 


301 


XDC07 




$DC07 


;TBH1 timer B high 


DCOD 


302 


XDCOD 




$DCOD 


;ICR1 interrupt control register 


DCOE 


303 


XDCOE 




$DCOE 


;CBtAl control register for port A 


DCOF 


304 
305 


XDCOF 

; 




$DCOF 


;CRB1 control register for port B 




306 


;6526 


CIA2 






307 


; 








DDOO 


308 


XDDOO 




$DDOO 


;PA2 port A 


DDOl 


309 


XDDOl 




$DD01 


;PB2 port B 


DD02 


310 


XDD02 




$DD02 


;DDRA2 direction bits for port A 


DD03 


311 


XI1D03 




$DD03 


;DDRB2 direction bits for port B 


DD04 


312 


XDD04 




$DD04 


;TAL2 timer A low 


DD05 


313 


XDII05 




$DD05 


;TAH2 timer A high 


DD06 


314 


XDD06 




$DD06 


;TBL2 timer B low 


DD07 


315 


XDD07 




$DD07 


;TBH2 timer B high 


DDOD 


316 


XDDOD 




$DD0D 


; ICR2 interrupt control register 


DDOE 


317 


XDDOE 




$DDOE 


;CRA2 control register for port A 


DDOF 


318 


XDDOF 




$DDOF 


;CRB2 control register for port B 
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320 ;contlnuation of ' 

321 ; 



EOOO 




322 




.OR $E000 


EOOO 


8556 


323 




STA Z56 


E002 


200FBC 


324 




JSR XBCOF 


E005 


A561 


325 




LDA Z61 


E007 


C988 


326 




CMP $88 


E009 


9003 


327 




BCC BEUUt 


EOOB 


20D4BA 


328 


beoob 


JSR XBAD4 


EOOE 


20CCBC 


329 


BEOOE 


JSR XBCCC 


EOll 


A507 


330 




LDA Z07 


E013 


18 


331 




CLC 


E014 


5981 


332 




ADC $81 


E016 


F0F3 


333 




BEQ BEOOB 


E018 


38 


334 




SEC 


E019 


E901 


335 




SBC $01 


EOIB 


48 


336 




PHA 


EOlC 


A205 


337 




LDX $05 


EOIE 


B569 


338 


BEOIE 


LDA Z69,X 


E020 


B461 


339 




LDY Z61,X 


E022 


9561 


340 




STA Z61,X 


E024 


9469 


341 




STY Z69,X 


E026 


CA 


342 




DEX 


E027 


10F5 


343 




BPL BEOIE 


E029 


A556 


344 




LDA Z56 


E02B 


8570 


345 




STA Z70 


E02D 


2053B8 


346 




JSR XB853 


E030 


20B4BF 


347 




JSR XBFB4 


E033 


A9C4 


348 




LDA <TBFC4 


E035 


AOBF 


349 




LDY >TBFC4 


E037 


2059E0 


350 




JSR SE059 


E03A 


A900 


351 




LDA $00 


E03C 


856F 


352 




STA Z6F 


E03E 


68 


353 




PLA 


E03F 


20B9BA 


354 




JSR XBAB9 


E042 


60 


355 




RTS 



"EXP" routine 



;set guard byte for second flp accu 
;copy flp accu into second flp accu 
;get exponent 
;if => 8 

;then either or overflow 
; perform INT 

;get least significant byte 
;if = 127 

;then also overflow 

; remove excess 128 
;and save it 

;move second flp accu into flp accu 
;and vice versa 



; restore copied guard byte 
; apply diadic "-" 
; then minus operator 

;set AY to polynome table 
;and compute polynome 

; clear XOR of signs 
;add saved integral part 
; to exponent 
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357 ; compute odd degrees for SIN and ATN 

358 ; 



E043 
E045 
E047 
E04A 
E04C 
E04F 
E052 
E054 
E056 



8571 

8472 

20CABB 

A957 

2028BA 

205DE0 

A957 

AOOO 

4C28BA 



359 JE043 
360 
361 
362 
363 
364 
365 
366 
367 
368 ; 
369 



STA Z71 
STY Z72 
JSR XBBCA 
LDA <Z57 
JSR XBA28 
JSR SE05D 
LDA <Z57 
LDY >Z57 
JMP XBA28 



;save table pointer 

; store flp accu at Z57 
;set AY to Z57 

;multlply flp accu by # Indexed by AY 
; compute polynome 
;set AY to Z57 



imultlply flp accu by Z57 
;computepolynome according to table indexed by AY 







370 










E059 


8571 


371 


SE059 


STA 


Z71 


;save table pointer 


E05B 


8472 


372 




STY 


Z72 


E05D 


20C7BB 


373 


SE05D 


JSR 


XBBC7 


; store flp accu at Z5C 


E060 


B171 


374 




LDA (Z71),Y 


E062 


8567 


375 




STA 


Z67 


;save order 


E064 


A471 


376 




LDY 


Z71 




E066 


C8 


377 




INY 




;add 1 to table pointer 


E067 


98 


378 




TYA 




E068 


D002 


379 




BNE 


BE06C 




E06A 


E672 


380 




INC 


Z72 




E06C 


8571 


381 


BE06C 


STA 


Z71 


;save updated pointer 


E06E 


A472 


382 




LDY 


Z72 


;and restore AY 


E070 


2028BA 


383 


BE070 


JSR 


XBA28 


;multiply flp accu by # 


E073 


A571 


384 




LDA 


Z71 


; restore AY 


E075 


A472 


385 




LDY 


Z72 




E077 


18 


386 




CLC 






E078 


6905 


387 




ADC 


$05 


;add 5 to table pointer 


E07A 


9001 


388 




BCC 


BE07D 


E07C 


C8 


389 




INY 






E07D 


8571 


390 


BE07D 


STA 


Z71 


;save table pointer 


E07F 


8472 


391 




STY 


Z72 


E081 


2067B8 


392 




JSR 


XB867 


;add t indexed by AY to 


E084 


A95C 


393 




LDA 


<Z5C 


E086 


AOOO 


394 




LDY 


>Z5C 


;set AY to Z5C 


E088 


C667 


395 




DEC 


Z67 


; decrement order 


E08A 


D0E4 


396 




BNE 


BE070 


;and repeat until 


E08C 


60 


397 




RTS 





indexed by AY 
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399 ; floating point numbers for RND 

400 ; 

401 ; flp number for multiplication 
E08D 983544 402 TE08D .BY $98,$35,$44,$7A,$00 

403 ; flp number for addition 
E092 6828B1 404 TE092 .BY $68,$28,$B1,$46,$00 



405 ; 

406 ;"RND" command 

407 ; 



E097 


202BBC 


408 


WE097 


JSR 


XBC2B 


;get sign of flp accu into A 


E09A 


3037 


409 




BMI 


BE0D3 


J if ^ US& paranistcr &s seed 


E09C 


D020 


410 




BNE 


BEOBE 


;if > use old seed 


E09E 


20F3FF 


411 




JSR 


SFFF3 


;get base address of I/O devices 


EOAl 


8622 


412 




STX 


Z22 




E0A3 


8423 


413 




STY 






E0A5 


A004 


414 




LDY 


$04 




E0A7 


B122 


415 




LDA 


(Z22) ,Y 


J TALI timer value 


E0A9 


8562 


416 




STA 


Z62 




EOAB 


C8 


417 




INY 






EOAC 


B122 


418 




LDA 


(ZiZ) ,x 


\ TAHz t iineir vaue 


EOAE 


8564 


419 




STA 






EOBO 


A008 


420 




LDY 


$08 




E0B2 


B122 


421 




LDA 


(Z22) ,Y 


J tenths of a second 


E0B4 


8563 


422 




STA 






E0B6 


C8 


423 




INY 






E0B7 


B122 






LDA 




\ seconds 


E0B9 


8565 


425 




STA 


Z65 




EOBB 


4CE3E0 


426 
427 


> 


JMP 


JE0E3 


jgaiTDXe rj.p set rroin. uxal t-iineir/ 


EOBE 


A98B 


428 


BEUfiE 


LDA 


sZ8B 


J Xet Ai point to £iOD \ (.ul l cut occu / 


EOCO 


AOOO 


429 




LDY 


>Z8B 




E0C2 


20A2BB 


430 




JSR 


XBBA2 


\ 10£ia i-Lp 3CCU ZtQiu £iOD £.0£ 


E0C5 


A98D 


431 




LDA 


sTEUoD 


}Set AY to RND factor 


E0C7 


AOEO 


432 




LDY 


>TE08D 




E0C9 


2028BA 


433 




JSR 


XBA28 


jmult iply flp accu times RND factor 


EOCC 


A992 


434 




LDA 


<TE092 


;set AY. to RND addition value 


EOCE 


AOEO 


435 




LDY 


>TE092 




EODO 


2067B8 


436 




JSR 


XB867 


jadd RND factor to result in flp accu 


E0D3 


A665 


437 


BE0D3 


LDX 


Z65 


J exchange byte A and byte 1 


E0D5 


A562 


438 




LDA 


Z62 




E0D7 


o J03 


439 




STA 


Z65 




E0D9 


8662 


440 




STX 


Z62 




EODB 


A663 


441 




LDX 


Z63 


; exchange byte 2 and byte 3 


EODD 


A564 


442 




LDA 


Z64 




EODF 


8563 


443 




STA 


Z63 




EOEl 


8664 


444 




STX 


Z64 




E0E3 


A900 


445 


JE0E3 


LDA 


$00 


;set sign positive 


E0E5 


8566 


446 




STA 


Z66 




E0E7 


A561 


447 




LDA 


Z61 




E0E9 


8570 


448 




STA 


Z70 


;set guard byte 


EOEB 


A980 


449 




LDA 


$80 


;move to exponent 


EOED 


8561 


450 




STA 


Z61 




EOEF 


20D7B8 


451 




JSR 


XB8D7 


;perform postshift 


E0F2 


A28B 


452 




LDX 


<Z8B 


;set XY to RND seed value 


E0F4 


AOOO 


453 




LDY 


>Z8B 




E0F6 


4CD4BB 


454 


SE0F6 


JMP 


XBBD4 


; store flp accu as new seed 
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456 


;handle errors for 






457 






E0F9 


C9F0 


458 






EOFB 


D007 


459 


BNE 


BE 104 


EOFD 


8438 


460 


STY 




EOFF 


8637 


461 


STX 




ElOl 




462 


JMP 


XA663 






463 






E104 


AA 


464 


UFiriA TAY 




E105 


D002 


465 


BNE 


BE 109 


E107 


A21E 


466 


LDX 


$1E 


E109 


4C37A4 


467 


Bp 109 IMP 


XA437 






468 






ElOC 


20n2FF 


469 


JSR 


SFFD2 


ElOF 


B0E8 


470 


BCS 




Elll 


60 


471 


RTS 








472 


* 




EH2 




473 


jSR 


or r Cr 


El 15 


B0E2 


474 


BCS 


BiiUr 7 


E117 


60 


475 


RTS 








476 






El 18 




477 


JSR 


SE4AD 


El IB 


BODC 


478 


BCS 




El ID 


60 


479 


RTS 








480 






EllE 


20rfiFF 


481 


JSR 


SFFC6 


E121 


B0D6 


482 


BCS 


BE0F9 


E123 


60 


483 


RTS 








484 






E124 


20E4FF 


485 


JSR 


SFFE4 


E127 


BODO 


486 


BCS 


BE0F9 


E129 


60 


487 


RTS 





direct I/O calles from BASIC Interpreter 
;lf open for RS-232, 
;set new top of memory limit 
;CLR, back to basic 



;if no error message Indexed, 
; select BREAK message 
;go print message 

joutput a character 
;if no errors, 
; return 

; input a character on current device 
;if no errors, 
; return 

;set output device 
;if no errors, 
;return 

;set input device 
;if no errors, 
; return 

;get a character from current device 
;if no errors, 
; return 
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489 ;"SYS" command 

490 ; 



E12A 


208AAD 


491 WhliA 


JSR 


XAD8A 


E12D 


20F7B7 


492 


JSR 


XB7F7 


E130 


A9E1 


493 


LDA 




E132 


48 


494 


PHA 




E133 


A946 


495 


LDA 


^inrl /■ 7—1 


E135 


48 


496 


PHA 




E136 


AD0FO3 


497 


LDA 


X030F 


E139 


48 


498 


PHA 




E13A 


AD0C03 


499 


LDA 


X030C 


E13D 


AE0D03 


500 


LDX 


X030D 


E140 


AC0E03 


501 


LDY 


X030E 


E143 


28 


502 


PLP 




E144 


6C1400 


503 


JMP 








504 ; 






E147 


08 


505 WE147 


PHP 




E148 


8DOC03 


506 


STA 


X030C 


E14B 


8E0D03 


507 


STX 


X030D 


E14E 


8C0E03 


508 


STY 


X030E 


E151 


68 


509 


PLA 




E152 


8D0F03 


510 


STA 


X030F 


E155 


60 


511 


RTS 





;get next non-string value 
; convert to integer in Z14/15 



;set return address 

;save flag register on stack 

;restore A, X & Y 

;to status of exit from last SYS 

;do SYS routine 

;save flag register on stack 
;save A 
;save X 
; save Y 

;save Flag register 
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513 
514 

E156 20D4E1 515 
E159 A62D 516 
E15B A42E 517 
E15D A92B 518 
E15F 20D8FF 519 
E162 B095 520 
E164 60 521 
522 
523 
524 

E165 A901 525 
E157 2C 526 
527 
528 
529 

E168 A900 530 
E16A 850A 531 
E16C 20D4E1 532 
E16F A50A 533 
E171 A62B 534 
E173 A42C 535 
E175 20D5FF 536 
E178 B057 537 
E17A A50A 538 
E17C F017 539 
E17E A21C 540 
E180 20B7FF 541 
E183 2910 542 
E185 D017 543 
E187 A57A 544 
E189 C902 545 
E18B F007 546 
E18D A964 547 
E18F A0A3 548 
E191 4C1EAB 549 
E194 60 550 
551 

E195 20B7FF 552 
E198 29BF 553 
E19A F005 554 
E19C A21D 555 
E19E 4C37A4 556 
557 

ElAl A57B 558 
E1A3 C902 559 
E1A5 DOOE 560 
E1A7 862D 561 
E1A9 842E 562 
ElAB A976 563 
ElAD A0A3 564 
ElAF 201EAB 565 
E1B2 4C2AA5 566 
567 
568 
569 

E1B5 208EA6 570 
E1B8 2033A5 571 
EIBB 4C77A6 572 



;"SAVE" command 

WE156 JSR SE1D4 
LDX Z2D 
LDY Z2E 
LDA <Z2B 
JSR SFFD8 
BCS BE0F9 
RTS 

; "VERIFY" command 

WE165 LDA $01 
.BY $2C 

;"LOAD" command 

WE168 LDA $00 
STA ZOA 
JSR SE1D4 
LDA ZOA 
LDX Z2B 
LDY Z2C 
JSR SFFD5 
BCS BEIDI 
LDA ZOA 
BEQ BE195 
LDX $1C 
JSR SFFB7 
AND $10 
BNE BE19E 
LDA Z7A 
CMP $02 
BEQ BE 194 
LDA <TA364 
LDY >TA364 
JMP XABIE 
BE194 RTS 
> 

BE195 JSR SFFB7 
AND $BF 
BEQ BElAl 
LDX $ID 
BE19E JMP XA437 

BElAl LDA Z7B 
CMP $02 
BNE BE1B5 
SIX Z2D 
STY Z2E 
LDA <TA376 
LDY >TA376 
JSR XABIE 
JMP XA52A 

;end of load/verify 

BE1B5 JSR XA68E 
JSR XA533 
JMP XA677 



;set file parameters 

;set end address of BASIC text 

;set address of start address 
;save RAM to a device 
;if no errors, 
; return 



;set value for Verify 
;sklp next instruction 



;set value for Load 
;set load/ verify flag 
; fetch file parameters 
; fetch load/ verify flag 
;set start address in XY 

;load device to RAM 
;exit upon error 

;if verify pass, 

; index Verify Error message 

;read ST 

;if ST indicates a mismatch, 
;go print error 



;exit If in RUN mode, else 

; set AY to point to message OK 

; print message OK 
;if load pass 

;and ST indicates an error 

; index Load Error message 
; print message 

; check high addr of current character 

;if in direct mode 
;move end of program address 
;to end of BASIC address 
;set AY to READY message 

; print READY 
;relink BASIC, exit 

from within a program 

;move start of program to next char addr 
; relink BASIC 

; res tore, clear pointers, return 
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ElBE 2019E2 
ElCl 20C0FF 
E1C4 BOOB 
E1C6 60 



E1C7 2019E2 
EICA A549 
EICC 20C3FF 
EICF 90C3 
ElDl 4CF9E0 



574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 



"OPEN" command 

WEIBE JSR SE219 
JSR SFFCO 
BCS BEIDI 
RTS 

" CLO SE " c ommand 

WE1C7 JSR SE219 
LDA Z49 
JSR SFFC3 
see BE194 

BEIDI JMP BE0F9 



; fetch parameters 
;perform open 
;lf no errors, 
; return 



; fetch parameters 
;restore file t 
; perform close 
;exlt if no errors 
; error 



;set parameters for load/verify/save 



E1D4 


A900 


591 SE1D4 


LDA 


$00 


; assume no file name 




E1D6 


20BDFF 


592 


JSR 


SFFBD 


;set file name parameters 




E1D9 


A201 


593 


LDX 


$01 


;ass\]me device 1 




EIDB 


AOOO 


594 


LDY 


$00 


;and secondary address 


addr 


EIDD 


20BAFF 


595 


JSR 


SFFBA 


;set logical file, device & sec. 


ElEO 


2006E2 


596 


JSR 


SE206 


; fetch current character 




E1E3 


2057E2 


597 


JSR 


SE257 


; evaluate expression 




E1E6 


2006E2 


598 


JSR 


SE206 


; fetch current character 




E1E9 


2000E2 


599 


JSR 


SE200 


;skip comma and fetch integer into X 


ElEC 


AOOO 


600 


LDY 


$00 


; secondary address still 




ElEE 


8649 


601 


STX 


Z49 


;save device # 




EIFO 


20BAFF 


602 


JSR 


SFFBA 


;set logical file, device & sec. 


addr 


E1F3 


2006E2 


603 


JSR 


SE206 


; fetch current character 




E1F6 


20OOE2 


604 


JSR 


SE200 


;skip comma and fetch integer into X 


E1F9 


8A 


605 


TXA 








EIFA 


A8 


606 


TAY 




;set secondary address 




EIFB 


A649 


607 


LDX 


Z49 


;restore device - 




EIFD 


4CBAFF 


608 


JMP 


SFFBA 


;set logical file, device & sec. 


addr 



E200 200EE2 
E203 4C9EB7 



E206 207900 
E209 D002 
E20B 68 
E20C 68 
E20D 60 



E20E 20FDAE 
E211 207900 
E214 D0F7 
E216 4C08AF 



609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 



;skip comma and fetch integer into X 



SE200 JSR SE20E 
JMP XB79E 



; check for and skip comma 
; fetch integer value into X 



; fetch current character and check for end of line 
; fetch current character 
;if end of line, delete own return addr 



SE206 JSR X0079 
BNE BE20D 
PLA 
PLA 

BE20D RTS 



; check for a comma and skip it 



SE20E JSR XAEFD 
SE211 JSR X0079 
BNE BE20D 
JMP XAF08 



; check for and skip "," 
; fetch current character 

; SYNTAX Error if end of line reached 
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530 


jget 


Open/ Close 






631 








E219 


A900 


632 


SE219 


LDA 


$00 


E21B 


20BDFF 


633 




JSR 


SFFBD 


E21E 


2011E2 


634 




JSR 


SE211 


E221 


209EB7 


635 




JSR 


XB79E 


E224 


8549 


636 




STX 


Z49 


E226 


8A 


537 




TXA 




E227 


A201 


538 




LDX 


$01 


E229 


AOOO 


639 




LDY 


$00 


E22B 


20BAFF 


640 




JSR 


SFFBA 


E22E 


2006E2 


641 




JSR 


SE206 


E231 


2000E2 


642 




JSR 


SE200 


E234 


864A 


643 




STX 


Z4A 


E236 


AOOO 


644 




LDY 


$00 


E238 


A549 


645 




LDA 


Z49 


E23A 


E003 


645 




CPX 


$03 


E23C 


9001 


647 




BCC 


BE23F 


E23E 


88 


648 




DEY 




E23F 


20BAFF 


649 


BE23F 


JSR 


SFFBA 


E242 


2006E2 


550 




JSR 


SE205 


E245 


2000E2 


551 




JSR 


SE200 


E248 


8A 


652 




TXA 




E249 


AS 


653 




TAY 




E24A 


A54A 


654 




LDX 


Z4A 


E24C 


A549 


655 




LDA 


Z49 


E24E 


20BAFF 


556 




JSR 


SFFBA 


E251 


2006E2 


557 




JSR 


SE206 


E254 


200EE2 


558 




JSR 


SE20E 


E257 


209EAD 


559 


SE257 


JSR 


XAD9E 


E25A 


20A3B6 


550 




JSR 


XB6A3 


E25D 


A622 


551 




LDX 


Z22 


E25F 


A423 


652 




LDY 


Z23 


E261 


4CBDFF 


653 




JMP 


SFFBD 



parameters 

; assume no file name 

;set file name parameters 

; fetch current character 

;get next non-string value into X 

;save file number 

;assume device 1 

;and secondary address 

;set currrent file, device & sec. addr 

; fetch current character 

;skip comma and fetch integer value into X 
;save device number 
; secondary still 



;if device number > 3 
; secondary = $FF 

;set logical file, device & sec. addr 

; fetch current character 

;skip comma,] fetch integer value in X 

;set secondary address 
jrestore device 
;and file 

;set logical file, device & sec. addr 

; fetch current character 

;check for and skip "," 

;evaluate expression 

; de-allocate temporary string 

;XY = address of file name 
;set file name parameters 



136 







665 


; " COS' 


comma nd 






666 








E264 


A9E0 


667 


WE264 


LDA 


<IE2E0 


E266 


A0E2 


668 




LDY 


>TE2E0 


E268 


2067B8 


669 




JSR XB867 






670 












671 


>„ 

; SIN 


command 






672 








E26B 


ZUUCBO 


673 


SE26B 


JSR 


XBCOC 


E26E 


A9E5 


674 




LDA 


<TE2E5 


E270 


A0E2 


675 




LDY 


>TE2E5 


E272 


A66E 


676 




LDX 


Z6E 


E274 


2007BB 


677 




JSR 


XBB07 


Ein 


200CBC 


678 




JSR 


XBCOC 


E27k 


20CCBC 


679 




JSR 


XBCCC 


E27D 


A900 


680 




LDA 


$00 


E27F 


856F 


681 




STA 


Z6F 


E281 


2053B8 


682 




JSR 


XB853 


E284 


A9EA 


683 




LDA 


<TE2EA 


E286 


A0E2 


684 




LDY 


>TE2EA 


E288 


2050B8 


685 




JSR 


XB850 


E28B 


A566 


686 




LDA 


Z66 


E28D 


48 


687 




PHA 




E28E 


lOOD 


688 




BPL 


BE29D 


E290 


2049B8 


689 




JSR 


XB849 


E293 


A566 


690 




LDA 


Z66 


E295 


3009 


691 




BMl 


BE 2 AO 


E297 


A512 


692 




LDA 


Z12 


E299 


49FF 


693 




EOR 


$FF 


E29B 


8512 


694 




STA 


Z12 


E29D 


20B4BF 


695 


BE29D 


JSR 


XBFB4 


E2A0 


A9EA 


696 


BE2A0 


LDA 


<TE2EA 


E2A2 


A0E2 


697 




LDY 


>TE2EA 


E2A4 


o "7 Ti o 

2Ud/B8 


698 




JSR 


XB867 


E2A7 


68 


699 




PLA 




E2A8 


1003 


700 




BPL 


BE2AD 


E2AA 


20B4BF 


701 




JSR 


XBFB4 


E2AD 


A9EF 


702 


BE2AD 


LDA 


<TE2EF 


E2AF 


A0E2 


703 




LDY 


>TE2EF 


E2B1 


4C43EO 


704 




JMP 


JE043 



;set AY to point to 0.5 * PI 
;add to flp accu then do SIN 



;move rounded flp accu to 2nd flp accu 
;set AY to 2 * PI 

;get sign 

; divide flp accu by 2 * PI 

;move rounded flp accu to 2nd flp accu 

;call function INT 

;set XOR of signs to be the same 
; apply diadic operator "-" 
;set AY to point to 0.25 

; subtract flp accu from 0.25 
;flp accu # 1 - sign 
;save sign 
;if negative 

;do half rounding (add 0.5) 
;get sign 

;if positive, complement flag 



japply monadic operator "-" 
;set AY to 0.25 

;add 0.25 to flp accu 
; restore original sign 
;if negative, 

; perform monadic "-" again 
;set AY to polynome table 

;go compute odd degrees 
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706 


;"TAN" command 








707 


'• 




E2B4 


20CABB 


708 


WE2B4 JSR XBBCA 


; store flp accu at Z57-5B 


E2B7 


A900 


709 


LDA $00 




E2B9 


8512 


710 


STA Z12 


; clear sign flag 


E2BB 


206BE2 


711 


JSR SE26B 


; perform SIN 


E2BE 


A24E 


712 


LDX <Z4E 


;set AY to Z4E 


E2C0 


AOOO 


713 


LDY >Z4E 




E2C2 


20F6E0 


714 


JSR SE0F6 


; store flp accu at Z4E 


E2C5 


A957 


715 


LDA <Z57 


;set AY to Z57 


E2C7 


AOOO 


716 


LDY >Z57 




E2C9 


20A2BB 


717 


JSR XBBA2 


;move flp accu there 


E2CC 


A900 


718 


LDA $00 




E2CE 


8566 


719 


STA Z66 


;clear sign of flp accu 


E2D0 


A512 


720 


LDA Z12 


; fetch sign flag 


E2D2 


20DCE2 


721 


JSR SE2DC 


; compute COS of flp accu 


E2D5 


A94E 


722 


LDA <Z4E 


;set AY to Z4E 


E2D7 


AOOO 


723 


LDY >Z4E 




E2D9 


4C0FBB 


724 
725 


JMP XBBOF 


;dlvlde number at Z4E by flp accu, exit 


E2DC 


48 


726 


SE2DC PHA 




E2DD 


4C9DE2 


727 
728 


JMP BE29D 


; compute COS of flp accu then return 






729 


;flp numbers for 


SIN, COS and TAN 






730 










731 


•0.5 * PI 




E2E0 


81490F 


732 


TE2E0 .BY $81,$49,$0F,$DA,$A2 






733 


:2 * PI 




E2E5 


834 90F 


734 


TE2E5 .BY $83,$49,$0F,$DA,$A2 






735 


;0.25 




E2EA 


7FO0OO 


736 


TE2EA .BY $7F,$00,$00,$00,$00 






737 






E2EF 


05 


738 
739 


TE2EF .BY $05 
;-14. 3813907 


;polynome table for SIN 


E2F0 


84E61A 


740 


.BY $84,$E6,$1A,$2D,$1B 






741 


; 42.0077971 




E2F5 


862807 


742 


.BY $86,$28,$07,$FB,$F8 






743 


;-76. 7041703 




E2FA 


879968 


744 


.BY $87, $99, $68, $89, $01 






745 


; 81.6052237 




E2FF 


872335 


746 


.BY $87,$23,$35,$DF,$E1 






747 


;-41. 3417021 




E304 


86A55D 


748 


.BY $86,$A5,$5D,$E7,$28 






749 


; 6.28318531 




E309 


83490F 


750 


.BY $83,$49,$0F,$DA,$A2 
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752 


;"ATN" command 








753 


> 




E30E 


A566 


754 


WE30E LDA Z66 


; save sign 


E310 


48 


755 


PHA 




E311 


1003 


756 


BPL BE315 


;1£ negative. 


E313 


20B4BF 


757 


JSR XBFB4 


; apply monadic operator "-" 


E316 


A561 


758 


BE316 LDA Z61 




E318 


48 


759 


PHA 


;save exponent 


E319 


C981 


760 


CMP $81 


;lf => 1 


E31B 


9007 


761 


BCC BE324 




E31D 


A9BC 


762 


LDA <TB9BC 


;let AY point to 1 


E31F 


A0B9 


763 


LDY >TB9BC 




E321 


200FBB 


764 


JSR XBBOF 


; divide 1 by flp accu 


E324 


A93E 


765 


BE324 LDA <TE33E 


;set AY to polynome table for ATN 


E326 


A0E3 


766 


LDY >TE33E 




E328 


204 3E0 


767 


JSR JE043 


; compute odd degrees 


E32B 


68 


768 


PLA 




E32C 


C981 


769 


CMP $81 


;lf exponent "> 1 


E32E 


9007 


770 


BCC BE337 




E330 


A9E0 


771 


LDA <TE2E0 


;set AY to 0.5 * PI 


E332 


A0E2 


772 


LDY >TE2E0 




E334 


2050B8 


773 


JSR XB850 


; subtract flp accu from 0.5 * PI 


E337 


68 


774 


BE337 PLA 




E338 


1003 


775 


BPL BE33D 


;lf sign negative 


E33A 


4CB4BF 


776 
777 


JMP XBFB4 


;apply monadic operator "-" 


E33D 


60 


778 
779 


BE33D RTS 








780 


;flp numbers for 


ATN 






781 






E33E 


OB 


782 
783 


TE33E .BY $0B 
; -0.000684793912 




E33F 


76B383 


784 


.BY $76,$B3,$83,$BD,$D3 






785 


; 0.00485094216 




E344 


791EF4 


786 


.BY $79,$1E,$F4,$A6,$F5 






787 


;-0. 0131117018 




E349 


7B83FC 


788 


.BY $7B,$83,$FC,SB0,$10 






789 


; 0.034209638 




E34E 


7C0C1F 


790 


.BY $7C,$0C,$1F,$67,$CA 






791 


;-0. 0542791328 




E353 


7CDE53 


792 


.BY $7C,$DE,$53,$CB,$C1 






793 


; 0.0724571965 




E358 


7D1464 


794 


.BY $7D,$14,$64,$70,$4C 






795 


;-0. 0898023954 




E35D 


7DB7EA 


796 


.BY $7D,$B7,$EA,$51,$7A 






797 


; 0.110932413 




E362 


7D6330 


798 


.BY $7D,$63,$30,$88,$7E 






799 


; -0.142839808 




E367 


/E9Z44 


800 


.BY $7E,$92,$44,$99,$3A 






801 


; 0.19999912 




E36C 


7E4CCC 


802 


.BY $7E,$4C,$CC,$91,$C7 






803 


;-0. 333333316 




E371 


7FAAAA 


804 


.BY $7F,$AA,$AA,$AA,$13 






805 


; 1 




E376 


810000 


806 


.BY $81, $00, $00, $00, $00 



13? 







OUO 


;wanQ st£irt entry 


( stop/ restore) 






QDO 

ouy 






E37B 


20CCFF 


810 


JSR SFFCC 


;close all files, set default devices 


E37E 


A900 


811 


LDA $00 




E380 


8513 


812 


STA Z13 


; clear CMD file number flag 


E382 


207AA6 


813 


JSR XA67A 


;reset pointers 


E385 


58 


814 


CLI 


; allow IRQ 


E386 


A280 


815 


BE386 LDX $80 


; index default message READY 


E388 


bOUUUJ 


816 
817 


JMP (_XujOO^ 


; print message (normally E38B) 






818 
819 


;handle error mes 


sages 


E38B 


8A 


820 


WE38B TXA 




E38C 


3003 


82 1 


BMI BE391 


;if X < $80 


E38E 


4C3AA4 


822 


JMP XA43A 


; print BASIC message 






823 






E391 


4C74A4 


824 


BE391 JMP XA474 


;else print ElEADY message 






825 










826 


;RESET routine 








827 






E394 


2053E4 


828 


JSR SE453 


;initialize 0/S vectors 


E397 


20BFE3 


829 


JSR SE3BF 


;initialize BASIC interpreter 


E39A 


202 2E4 


830 


JSR SE422 


; print BASIC start-up messages 


E39D 


A2FB 


a J 1 


T TW "17 D 

LuA. o 


E39F 


9A 


832 


TXS 


;initialize stack pointer 


E3A0 


D0E4 


OJJ 




; print message READY 






834 










835 


; character fetch 


code for page zero 0073-008F 






836 






E3A2 


E67A 


837 


TE-5A.i INC Z/A 


;bump character pointer (low) 


E3A4 


DO 02 


Q'iQ 


BNK BEJAo 


;if overflow, 


E3A6 


E67B 


839 


INC Z7B 


;bump character pointer (high) 


E3A8 


ALJoUEA 


840 


BE-iAo LDA BEAd1~1 


; fetch character from modified addres 


E3AB 


C93A 




CMP '9+1 


;if above ntomerics 


E3AD 


BOOA 


842 


BOS BEJSy 


; return with C = 1 (and Z = 1 if ":") 


E3AF 


C920 


843 


CMP $20 


;if character is a space. 


E3B1 


FOEF 


844 


BEQ TE3A2 


; ignore and get next character 


E3B3 


38 


845 


SEC 




E3B4 


E930 


846 


SBC '0 


;if below numerics 


E3B6 


38 


847 


SEC 


;return with C = 1 (and Z = 1 if $00) 


E3B7 


E9D0 


848 


SBC $D0 


;if numeric, return with C = 


E3B9 


60 


849 


BE3B9 RTS 


; return with flags set and char in A 






850 










851 


; first RND seed value 






852 






E3BA 


804FC7 


853 


.BY $80,$4F,$C7,$52,$58 
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855 


; Initialization for 


BASIC interpreter 






856 


; 








E3BF 


A94C 


857 


SE3BF 


LDA 


$4C 


;set JMP instruction 


E3C1 


8554 


858 




STA 


Z54 


;for functions 


E3C3 


8D1003 


859 




STA 


X0310 


;and USR vector 


E3C6 


A948 


860 




LDA 


<WB248 


;default USR jump address 


E3C8 


A0B2 


861 




LDY 


>WB248 


;( ILLEGAL QUANTITY Error) 


E3CA 


8D1103 


862 




STA 


X0311 


;set USR jump address, low byte 


E3CD 


8C1203 


863 




STY 


X0312 


;USR jump address, high byte 


E3D0 


A991 


864 




LDA 


<WB391 




E3D2 


A0B3 


865 




LDY 


>WB391 




E3D4 


8505 


866 




STA 


Z05 


;set fixed-float vector 


E3D6 


8406 


867 




STY 


Z06 


;& high byte 


E3D8 


A9AA 


868 




LDA 


<WB1AA 




E3DA 


AOBl 


869 




LDY 


>WB1AA 




E3DC 


8503 


870 




STA 


Z03 


;set float-fixed vector 


E3DE 


8404 


871 




STY 


Z04 


;& high byte 


E3E0 


A21C 


872 




LDX 


$1C 




E3E2 


BDA2E3 


873 


BE3E2 


LDA 


TE3A2,X 


;move character fetch code to $73-8A 


E3E5 


9573 


874 




STA 


Z73,X 


;and first RND seed into Z8B-Z8F 


E3E7 


CA 


875 




DEX 






E3E8 


10F8 


876 




BPL 


BE3E2 




E3EA 


A903 


877 




LDA 


$03 




E3EC 


8553 


878 




STA 


Z53 


;set default step 


E3EE 


A900 


879 




LDA 


$00 




E3F0 


8568 


880 




STA 


Z68 


; clear flp accu overflow area 


E3F2 


851.3 


881 




STA 


Z13 


;set CMD file number to default 


E3F4 


8518 


882 




STA 


Z18 


; clear high of string descriptor index 


E3F6 


A201 


883 




LDX 


$01 




E3F8 


8EFD01 


884 




STX 


XOIFD 




E3FB 


8EFC01 


885 




SIX 


XOIFC 


; prefix input buffer with dummy pointei 


E3FE 


A219 


886 




LDX 


$19 




E400 


8616 


887 




STX 


Z16 


;set pointer to temporary string stack 


E402 


38 


888 




SEC 






E403 


209CFF 


889 




JSR 


SFF9C 


'read bottom of memory address 


E406 


862B 


890 




STX 


Z2B 


;to set BASIC bottom of memory 


E408 


842C 


891 




STY 


Z2C 




E40A 


38 


892 




SEC 






E40B 


2099FF 


893 




JSR 


SFF99 


;read top of memory address 


E40E 


8637 


894 




STX 


Z37 


;to set BASIC memory limit 


E410 


8438 


895 




STY 


Z38 


E412 


8633 


896 




STX 


Z33 


;set string storage address 


E414 


8434 


897 




STY 


Z34 


;& high byte 


E416 


AOOO 


898 




LDY 


$00 




E418 


98 


899 




TYA 






E419 


912B 


900 




STA 


(Z2B) ,Y 


;move a to bottom of memory 


E41B 


E62B 


901 




INC 


Z2B 


;add 1 to start of BASIC address 


E41D 


D002 


902 




BNE 


BE421 




E41F 


E62C 


903 




INC 


Z2C 


;& high byte upon overflow 


E421 


60 


904 


BE421 


RTS 
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906 


;print BASIC start- 


*up messages 






907 








E422 


A32B 


908 


bh4zZ LDA 


Z2B 


f sec Ai uo Start or DAoXtj 


IT /. 9 /. 


aa ir* 




LDY 


Z2C 




E426 




910 


JSR 


XA408 


\ peirr oxm airirsy acsa overflow cneck 


E429 




911 


LDA 




\ sec AX CO uiessage i^unnuiA^Kj^ dh daol^ 


E42B 


A0E4 


912 


LDY 


? i VM 1 J 




E42D 


9m FAR 


913 


JSR 






E430 


A537 


914 


LDA 




f UOC J.XIUXL. UX UICUIUL y 


E432 


38 


915 


SEC 






E433 


E52B 


916 


SBC 


Z2B 


} poince t CO scacc or dad w* 


E435 


AA 


917 


TAX 






E436 


A538 


918 


LDA 


Z38 


;& high bytes 


E.*t JO 


E52C 


01 Q 


SBC 


Z2C 


) Co calcuXate bytes free 


E43A 




920 


JSR 


XBDCD 


\ convert to stri.iig 


E43D 


aqad 

Ay OK) 


Q7 1 

7Z i. 


LDA 


<TE460 


fSec AX CO message ozieid rtUiCi 


E43F 


A0E4 


09 ■? 
^LL 


LDY 


>TE460 






201EAB 


7^ J 


JSR 


XABIE 


• nv ■■ n t- & t-han T1VTI7C 

yprinc V cnen cxicio vkxiEi 




A r"A /■ a£ 


Q9A 
09 


JMP 


XA644 


\ perform NEW, print READY 






09 A 


;vectors for $0300- 








927 








pA a 7 


8BE3 


Q9Q 
7Z0 


TE447 .W 


WE38B 


; error message vector 


17A AO 


R1 A A 


090 

7Z5 


.W 


WA483 


jwarm start vector 


E44B 


7CA5 


930 


.W 


WA57C 


;crunch BASIC tokens vector 


E44D 


1 A A7 
LAA/ 


01 1 

7 J i 


.W 


WA71A 


J print tokens vector 




fA47 


932 


.W 


WA7E4 


} execute a statement vector 


irA Ri 


oOACt 


7 J J 

O^A 

7J4 


.W 

> 


WAE86 


J get arithmetic element vector 






7 J J 


; Initialize vectors 


> at ^UjUU^^UjUiS 






936 








E453 


A20B 


937 


SE453 LDX 


$0B 




E455 


BD47E4 


938 


BE455 LDA 


TE447,X 


; fetch a byte from table 


E458 




939 


STA 


X0300,X 


;and move it to vector area 


E45B 


CA 


OA n 


DEX 






ttA '^r 


10F7 


OA 1 


BPL 


BE455 


- 

\ repeat until o vectors s toreu 


E45E 




942 
943 


RTS 

> 






E45F 


00 


944 


.BY 


$00 




E460 


204241 


945 


TE460 .BY 


- ,'B,'A, 


'T 'r ' 'R 'y 'T 'F 'S ' 'F 'R 'F 


E471 


ODOO 


946 


.BY 


$OD,$00 




E473 


930D20 


947 


TE473 .BY 


$93,$0D,' 




E479 


2A2A2A 


948 


.BY 


'* '* '* 
f > 1 


'*.'*.'C,'0,'M,'M,'0,'D,'0,'R,'E 


E487 


203634 


949 


.BY 


' .'6,-4, 


' ,'B,'A,'S,'I,'C,' ,'V,'2 


E493 


202A2A 


950 


.BY 




'*,'*, $0D,$OD 


E49A 


203634 


951 


.BY 




'K,' ,'R,'A,'M,' ,'S,'Y,'S,'T,'E,'M,' 


E4AB 


005C 


952 


.BY 


$00,$5C 
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E4AD 48 
E4AE 20C9FF 
E4B1 AA 
E4B2 68 
E4B3 9001 
E4B5 8A 
E4B6 60 



E4B7 AAAAAA 
E4BF AAAAAA 
E4C7 AAAAAA 
E4CF AAAAAA 
E4D7 AAAAAA 



E4DA AD21D0 
E4DD 91F3 
E4DF 60 



E4E0 6902 
E4E2 A491 
E4E4 C8 
E4E5 D004 
E4E7 C5A1 
E4E9 D0F7 
E4EB 60 



954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 



;set output device (patch) 



SE4AD PHA 

JSR SFFC9 
TAX 
PLA 

BCC BE4B6 
TXA 
BE4B6 RTS 

; unused area follows 



; perform actual open for output 
;8ave possible error code 
; restore entry accumulator 
;if an error encountered, 
; return with error number in A 



.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA,$AA,$AA,$AA,$AA,$AA 
.BY $AA,$AA,$AA 

; clear a byte in color RAM 

SE4DA LDA XD021 ;use background t color 

STA (ZF3),Y ;to clear color RAM 
RTS 

;pause after finding a file on cassette 



SE4E0 ADC $02 

BE4E2 LDY Z91 
IffY 

BNE BE4EB 

CMP ZAl 

BNE BE4E2 
BE4EB RTS 



;set maximum pause to 256 - 512 jiffies 
;check keyboard scan result 

;exlt if a key depressed 

; repeat until delay complete 
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;baud rate factor table for International machines 








;( (clock frequency/ baud rate/2)-100) 






990 






EhEC 




QQ1 


TE4EC .WO $2619 


50 baud 


E4EE 


4419 




.WO $1944 


75 


E4F0 


lAll 


993 


.WO $111A 


110 


E4F2 


E80D 


994 


.WO $0DE8 


134.5 


E4f4 


/ UUL 


oo^ 

73 J 


.WO $0C70 


150 


E4F6 


UDUO 


QQA 


.WO $0606 


300 


E4F8 


D102 


997 


.WO $02D1 


600 


E4FA 


3701 


998 


.WO $0137 


1200 


E4FC 


AEOO 


OOQ 


.WO $OOAE 


1800 


E4FE 


6900 


1000 
1001 


.WO $0059 


2400 








;read base address of I/O devices Into XY 






1003 






ill jUU 


AZUU 


1004 


JE500 LDX $00 






AODC 


1005 


LDY $DC ; point to CIAl in XY 


E504 


60 


1006 

iUU/ 


RTS 








1 nna 


;read screen organization into XY 






1009 










1010 


JE505 LDX $28 


# columns 




Am Q 


1 ni 1 

iUi 1 


LDY $19 


# rows 




ou 


1 ni 
luiz 

LUi J 


RTS 










;read/set XY cursor position 






1015 






E50A 


B007 


1016 


JE50A BCS BE513 , 


if carry set, read cursor position 


E50C 


86D6 


1017 


STX ZD6 ; 


set cursor line # from X 


E50E 


84D3 


1018 


STY ZD3 ; 


set position of cursor on line from 


E510 


206CE5 


1019 


JSR SE56C ; 


set address of current screen line 


E513 


A6D6 


1020 


BE513 LDX ZD6 ; 


read cursor line number Into X 


E515 


A4D3 


1021 


LDY ZD3 ; 


read position of cursor on line into 


E517 


60 


1022 


RTS 
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1024 ;lnitlalize screen and keyboard 

1025 ; 



E518 


20A0E5 


1026 


SE518 


JSR 


SE5A0 


;lnitialize video chip, set default I/O 


E51B 


A900 


1027 




LDA 


$00 




E51D 


8D9102 


1028 




STA 


X0291 


; enable shift mode 


E520 


85CF 


1029 




STA 


ZCF 


; clear cursor blink phase 


E522 


A948 


1030 




LDA 


<WEB48 




E524 


8D8F02 


1031 




STA 


X028F 


;set address of keyboard decode routine 


E527 


A9EB 


1032 




LDA 


>WEB48 




E529 


8D9002 


1033 




STA 


X0290 


;& high byte 


E52C 


A90A 


1034 




LDA 


$0A 




E52E 


8D8902 


1035 




STA 


X0289 


;set maximum length of keyboard buffer 


E531 


8D8C02 


1036 




STA 


X028C 


;set repeat key delay counter 


E534 


A90E 


1037 




LDA 


$0E 




E536 


8D8602 


1038 




STA 


X0286 


;set current color code 


E539 


A904 


1039 




LDA 


$04 




E53B 


8D8B02 


1040 




STA 


X028B 


;set repeat key frequency counter 


E53E 


A90C 


1041 




LDA 


$0C 




E540 


85CD 


1042 




STA 


ZCD 


;set cursor flash timer 


E542 


85CC 


1043 




STA 


zee 


; disable cursor flash 


E544 


AD8802 


1044 


SE544 


LDA 


X0288 


; fetch screen memory start page 


E547 


0980 


1045 




ORA 


$80 


;set bit 7 to indicate 40 'C\ci 3jrt 


E549 


A8 


1046 




TAY 






E54A 


A900 


1047 




LDA 


$00 




E54C 


AA 


1048 




TAX 






E54D 


94D9 


1049 


BE54D 


STY 


ZD9,X 


; build screen line address table 


E54F 


18 


1050 




CLC 






E550 


6928 


1051 




ADC 


$28 




E552 


9001 


1052 




BCC 


BE555 




E554 


C8 


1053 




INY 






E555 


E8 


1054 


BE555 


I NX 






E556 


EOIA 


1055 




CPX 


$1A 




E558 


D0F3 


1056 




BNE 


BE54D 


; repeat for 25 lines 


E55A 


A9FF 


1057 




LDA 


$FF 




E55C 


95D9 


1058 




STA 


ZD9,X 




E55E 


A218 


1059 




LDX 


$18 


;line count - 1 


E560 


20FFE9 


1060 


BE560 


JSR 


SE9FF 


; clear a line 


E563 


CA 


1061 




DEX 






E564 


lOFA 


1062 




BPL 


BE560 


;loop till screen cleared 


E566 


AOOO 


1063 


JE566 


LDY 


$00 




E568 


84D3 


1064 




STY 


ZD3 


; cursor at position 


E56A 


84D6 


1065 




STY 


ZD6 


;and line 
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iuo / 


; set < 


address of 


current screen line 






1 nasi 










E56C 


A6D6 


1069 


QTT SAP 


LDX 


ZD6 


;get cursor line number in X 


ES6E 


A5D3 


1070 




LDA 


ZD3 


fSnd position of cursor on line in A 


E570 


B4d9 


1071 


BE570 


LDY 


209 X 


I check screen line address table 


E572 


3008 


1072 




BMX 


BE57C 




E574 


18 


1 n7i 

lU/ J 








;if on an 80 character line. 


E575 


6928 


1074 




ADC 


$28 


laaa hU tO 


E577 


85D3 


1075 




STA 


ZD3 


I position of cursor on line 




CA 


iU/ o 




DEX 




; point to preceeding line 




10F4 


1077 




BPL 


BE570 


;and repeat if screen top not reached 


E57C 


B5D9 


1078 


BE57C 


LDA 


ZD9,X 


; fetch high byte of screen line address 


E57E 


2903 


1079 




AND 


$03 


; strip 40/80 character line flag 


E580 


0D8802 


1080 




ORA 


X0288 


;add screen memory page 


E583 


85D2 


1081 




STA 


ZD2 


;to set high of pointer to screen line 


E585 


BDFOEC 


1082 




LDA 


TECFO , 


,X ;use line number and table of low bytes 


E588 


85D1 


1083 




STA 


ZDl 


;to set low byte of ptr to screen line 


E58A 


A927 


1084 




LDA 


$27 


;set initial max length of current line 


E58C 


E8 


1085 




INX 




E58D 


B4D9 


1086 


BE58D 


LDY 


ZD9,X 




E58F 


3006 


1087 




BMI 


BE597 


;exit if on a 40 character line 


E591 


18 


1088 




CLC 






E592 


6928 


1089 




ADC 


$28 


;else add 40 


E594 


VQ 

CiO 


1090 




INX 






E595 


lore 


1091 




BPL 


BE58D 


;and repeat one time 


E597 


85D5 


1092 


BE597 


STA 


ZDS 


;save maximum length current line 


E599 


60 


1093 
1094 




RTS 






E59A 


20A0E5 


1095 




JSR 


SE5A0 


;not referenced!! 


E59D 


4C66E5 


1096 




JMP 


JE566 
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1098 


;set video chip to s 


ltd values and I/O devices to default 






1099 






E5A0 


A903 


1100 


SE5A0 LDA $03 




E5A2 


859A 


1101 


STA Z9A 


;set output device (screen) 


E5A4 


A900 


1102 


LDA $00 




ESA6 


8599 


1103 


STA Z99 


;set input device (keyboard) 


E5A8 


A22F 


1104 


LDX $2F 




E5AA 


BDB8EC 


1105 


BE5AA LDA TECB9-1.X 


;use standard table values to 


E5AD 


9DFFCF 


1106 


STA XD000-1,X ;lnitialize video chip 


E5B0 


CA 


1107 


DEX 




E5B1 


D0F7 


1108 


BNE BE5AA 


; repeat to move all 47 values 


E5B3 


60 


1109 
1110 


RTS 

f 








1111 


; fetch a character from keyboard buffer 






1112 






E5B4 


AC7702 


1113 


SE5B4 LDY X0277 


;save bottom char of keyboard buffer 


E5B7 


A200 


1114 


LDX $00 




E5B9 


BD7802 


1115 


BE5B9 LDA X0277+1,X 


;move keyboard queue down one 


E5BC 


9D7702 


1116 


STA X0277,X 




E5BF 


E8 


1117 


INX 




E5C0 


E4C6 


1118 


CPX ZC6 


; check length of queue 


E5C2 


D0F5 


1119 


BNE BE5B9 


;loop until all moved 


E5C4 


C6C6 


1120 


DEC ZC6 


; subtract one from length of queue 


E5C6 


98 


1121 


TYA 


; return with character in A 


E5C7 


58 


1122 


CLI 


; allow IRQ's again 


E5C8 


18 


1123 


CLC 


; clear error flag 


E5C9 


60 


1124 


RTS 









1L26 


jw3l.t for 


<X n.C L IhII- Li 








1127 








E5CA 


2016E7 


1128 


BE5CA JSR 


SE716 




E5CD 


A5C6 


1129 


RFSrn IDA 


ZC6 


} inovs kcyboflrd. count 


E5CF 


85CC 


1130 


STA 


zee 


} to cuirsoir suable flsg (00~fl3sh^ 


E5D1 


8D9202 


1131 


STA 


X0292 


y 3.nd 3uto sciroll. down f Isg 


E5D4 


F0F7 


1132 


BEQ 


BE5CD 


^ loop until something arrives from Icbd 


E5D6 


78 


1133 


SEI 






E5D7 


A5CF 


1 134 


LDA 


ZCF 


I it cursor blinR pn3.se 1 


E5D9 


FOOC 


1135 


BEQ 


BE5E7 




E5DB 


A5CE 


1136 


LDA 


ZCE 


}@€t cnaracter under cursor 


E5DD 




1137 


LDX X0287 


; & color of character under cursor 


E5E0 


AO 00 


1138 


LDY 


$00 




E5E2 


84CF 


1 139 


STY 


ZCF 


J clear cursor blink phase 


E5E4 


2013EA 


1140 


JSR 


SEA13 


J s to re character on screen 


E5E7 


20B4E5 


1141 


BE5E7 JSR 


SE5B4 


; fetch a character from the keyboard buffer 


E5EA 


C983 


1142 


CMP 


$83 


; check for shift of Run/ Stop key 


E5EC 


DOlO 


1143 


BNE 


BE5FE 




E5EE 


A209 


1 144 


LDX $09 


J i f so , set count for move 


E5F0 


78 


1145 


SEI 






iL-)r i 


(5DL.0 




SIX 


ZC6 


; force keyboard buffer count 




Tinir ACT" 


1 1 A 7 


BE5F3 LDA 


TECE7-1,X 


;move "Load/Run" into keyboard buffer 


l:--)r o 


yui OUZ 


1 148 


STA 


X0277-1,X 






1 149 


DEX 






E jFA 


D0F7 


1 1 "nH 

i LjU 


BNE 


BE5F3 


; repeat until all characters moved 


E5FC 


FOCF 


1151 


BEQ 


BE5CD 


;go get first char from forced string 












E5FE 


C9UD 


1 1 

i I J J 


BE5FE CMP 


$0D 


; i f Re turn , 


E600 




1 1 ^A 


BNE 


BE5CA 




E602 


A4D5 


1155 


LDY 


ZD5 


;move screen line length 




ft Ann 


i L JO 


STY 


ZDO 


; to save area 


E606 


BlDl 


1 157 


BE606 LDA (ZDl),Y 


j check for blanks at end of line 


E608 


C920 




CMP 


$20 




E60A 


D003 


1159 


BNE 


BE60F 




E60C 


88 


1160 


DEY 




) and remove them 


E60D 


D0F7 


1161 


BNE 


BE606 




E60F 


C8 


1162 


BE60F INY 






E610 


84C8 


1163 


STY 


ZC8 


I set end or J.ine pointer for input 


E612 


AOOO 


1164 


LDY 


$00 




E614 


8C9202 


1165 


STY 


X0292 


^enaDJ.e auto scroxj. rlag 


E617 


84D3 


1166 


STY 


ZD3 


fSet position of cursor on line 


E619 


84d4 


1167 


STY 


ZD4 


y clear string flag 


E61B 


A5C9 


1 168 


LDA 


ZC9 


J ge t saved screen Ime number 


E61D 


301B 


1169 


BMI 


BE63A 


. P- f val id 


E61F 


A6D6 


1170 


LDX 


ZD6 




E621 




1171 


JSR 


SE6ED 


\ and e<|uaX to original 


E624 


E4C9 


1172 


CPX 


ZC9 




E626 


D012 


1173 


BNE 


BE63A 




E628 


A5CA 


1174 


LDA 


ZCA 




E62A 


85D3 


1175 


STA 


ZD3 


;set char position to original value 


E62C 


C5C8 


1176 


CMP 


ZC8 


;if char position is past end of line, 


E62E 


900A 


1177 


BCC 


BE63A 


;get character from screen 


E630 


B02B 


1178 


BCS 


BE65D 


;else exit with a return 
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L180 ;get character from 
1181 ; 



E632 


98 


1182 


JE632 


TYA 




E633 


48 


1183 




PHA 




E634 


8A 


1184 




TXA 




E635 


48 


1185 




PHA 




E636 


A5D0 


1186 




LDA 


ZDO 


E638 


F093 


1187 
1188 




BEQ 


BE5CD 






1189 


;get character fri 






1190 


! 






E63A 


A4D3 


1191 


BE63A 


LDY 


ZD3 


E63C 


BID! 


1192 




LDA 


(ZD1),Y 


E63E 


85D7 


1193 




STA 


ZD7 


E640 


293F 


1194 




AlID 


$3F 


E642 


06D7 


1195 




ASL 


ZD7 


E644 


24D7 


1196 




BIT 


ZD7 


E646 


1002 


1197 




BPL 


BE64A 


E648 


0980 


1198 




ORA 


$80 


E64A 


9004 


1199 


BE64A 


BCC 


BE650 


E64C 


A6D4 


1200 




LDX 


ZD4 


E64E 


D004 


1201 




BME 


BE654 


E650 


7002 


1202 


BE650 


BVS 


BE654 


E652 


0940 


1203 




ORA 


$40 


E654 


E6D3 


1204 


BE654 


INC 


ZD3 


E656 


2084E6 


1205 




JSR 


SE684 


E659 


C4C8 


1206 




CPY 


ZC8 


E65B 


D017 


1207 




BNE 


BE674 


E65D 


A900 


1208 


BE65D 


LDA 


$00 


E65F 


85D0 


1209 




STA 


ZDO 


E661 


A90D 


1210 




LDA 


$0D 


E663 


A699 


1211 




LDX 


Z99 


^665 


E003 


1212 




CPX 


$03 


E667 


F006 


1213 




BEQ 


BE66F 


E669 


A69A 


1214 




LDX 


Z9A 


E66B 


E003 


1215 




CPX 


$03 


E66D 


F003 


1216 




BEQ 


BE672 


E66F 


2016E7 


1217 


BE66F 


JSR 


SE716 


E672 


A90D 


1218 


BE672 


LDA 


$0D 


E674 


85D7 


1219 


BE674 


STA 


ZD7 


E676 


68 


1220 




PLA 




E677 


AA 


1221 




TAX 




E678 


68 


1222 




PLA 




E679 


A8 


1223 




TAY 




E67A 


A5D7 


1224 




LDA 


ZD7 


E67C 


C9DE 


1225 




CMP 


$DE 


E67E 


DO 02 


1226 




BNE 


BE682 


E680 


A9FF 


1227 




LDA 


$FF 


E682 


18 


1228 


BE682 


CLC 




E683 


60 


1229 




RTS 





device or 3 (keyboard or screen) 



;save XY on stack 

;test saved screen line length 
;if zero, wait for return 

current screen line 

;get position of cursor on current line 

;then current screen character 

;and save it 

;save low order 6 bits 

;if bit 6 is set in original 



;set bit 7 in converted character 

;if bit 7 is set in original 

;and in a string 

;then don't change bit 6 

;if bit 5 is clear in original 

;set bit 6 in converted character 

; increment position of cursor on line 

; check for a quote 

;if end of line reached 

;clear copy of screen line length 
; force a Return 

;if input device is 3 (screen) 
;echo character on screen 

;if output device is screen 
;replace character with a Return 
;echo character on screen 
jreplace character with a Return 
;and save as last character 



; restore XY 

;if character is PI 

; return with code for PI 
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1231 


; check for a quote 


raark and set flag 












E684 


C922 


1233 


SE684 


CUP '" 


; if character is a quote 


LOoo 


D008 


1234 




SHE BE690 


CiDOO 




1235 




LDA ZD4 






4901 


1236 




EOR $01 


; complement string flag 


£68C 




1 " n 




STA ZD4 




E68E 


A922 


1238 




LDA "• 


;and restore quote code in 


C1D7U 


ou 


1 239 
1240 


EE690 


RTS 






1 9A 1 
1Z4 1 


; fill 


screen at current position 






1242 










no An 


1243 


JE691 


OHA $40 


;map shifted characters 


E693 


A6c7 


1244 


JE693 


LDX ZC7 


; if reverse switch is on 


E695 


F002 


1245 




BEQ BE699 




E697 


0980 


1246 


JE697 


ORA $80 


;add reverse video bit 


E699 


A6D8 


1247 


BE 69 9 


LDX ZDS 


; if any pending inserts 


E69B 


F002 


1248 




BEQ BE69F 


E69D 


C6b8 


1249 




DEC ZDS 


; decrement pending inserts 


E69F 


AE8602 


1250 


BE69F 


LDX X0286 


; fetch current color code 


E6A2 


2013EA 


1251 




JSR SEA13 


;add character to screen 






1252 




JSR SE6B6 


; get/insert new line 






1253 












; return from output 


to the screen 






1255 








£6A8 


68 


1256 


BE6Ab 


PLA 




E6A9 


A8 


1257 




TAY 




E6AA 


A5D8 


1258 




LDA ZDS 


; if any pending inserts, 


E6AC 


F002 


1259 




BEQ BE6B0 




E6AE 


46l»4 


1260 




LSR ZD4 


; reset string mode flag 


E6B0 


68 


1261 


BE6B0 


PLA 


E6E1 


AA 


1262 




TAX 


; restore XA 


E6B2 


68 


1263 




PLA 




E6B3 


18 


1264 




CLC 




E6B4 


58 


1265 




CLI 


; allow IRQ's 


E6B5 


60 


1266 




RTS 
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1 Afi 
IZOO 


; get/ insert new 










> 








£iODD 






SE6B6 


JSR 


SE8B3 


) CtlSCK lOT 6Qu Ox & SCI766D Xxns 


E6B9 


E6D3 


10 71 




INC 


ZD3 


J advance cursor position 


E6BB 




1 9 79 




LDA 


ZD5 




E6BD 


C5D3 


1273 




CMP 


ZD3 


;lf beyond maximum position. 


E6BF 


B03F 


1274 




BCS 


BE700 


;exit 


E6CI 


C94F 


1275 




CMP 


$4F 


;lr not at /v 


E6C3 


F032 


1276 




BEQ 


BE6F7 




E6C5 


AD9202 


1277 




LDA 


X0292 


;and in auto scroll mode 


E6C8 


F003 


1278 




BEQ 


BE6CD 


; continue 


E6CA 


4C67E9 


1279 
1280 


'• 


JMP 


JE967 


J else insert a blank line in screen RAM 


EoCD 


AoDO 


1 9Q 1 


BE6CD 


LDX 


ZD6 


J if in auto scroll mode — 


E6CF 


E019 


1282 




CPX 


$19 


I and cur sor is on 1 ine 2 5 


E6D1 


9007 


1283 




BCC 


BE6DA 




ILbUO 


ZUr.Ac.o 






JSR 


SE8EA 


f scroll screen 


E6D6 


C6D6 


1285 




DEC 


ZD6 


; subtract 1 from cursor line 


E6D8 


A6D6 


1286 




LDX 


ZD6 




E6DA 


16D9 


1287 


BE6DA 


ASL 


ZD9,X 


;set an 80 character line 


E6DC 


56D9 


1288 




LSR 


ZD9,X 




E6DE 


E8 


1289 




INX 






E6DF 


B5D9 


1290 




LDA 


ZD9,X 


;set following line to 40 characters 


E6E1 


0980 


1291 




ORA 


$80 




E6E3 


95D9 


1292 




STA 


ZD9,X 




E6E5 


CA 


1293 




DEX 








A5D5 


1 9 OA 




LDA 


ZD5 




E6E8 




1 295 




CLC 






E6E9 


6928 


1296 




ADC 


$28 


;add 40 to line length of current line 


E6EB 


85D5 


1297 




STA 


ZD5 




E6ED 


B5D9 


1298 


SE6ED 


LDA 


ZD9,X 




E6EF 


3003 


1299 




BMI 


BE6F4 


;if current line is not 80 char line 


E6F1 


CA 


1300 




DEX 




; decrement line count 


E6F2 


D0F9 


1301 




BNE 


SE6ED 


;and repeat 


E6F4 


4CF0E9 


1302 
1303 


BE6F4 
• 


JMP 


SE9F0 


;reset screen line address and return 


cot / 






BE6F7 


DEC 


ZD6 


I decrement cursor line * 


E6F9 




L-jKJJ 




JSR 


SE87C 


;set next line number 


E6FC 


A900 


1306 




LDA 


$00 




E6FE 


85D3 


1307 




STA 


ZD3 


I set cursor position on line to 


E700 


fin 


1 "inn 
1 ^no 

1 JU7 


BE700 
• 


RTS 










1 ^1 n 


;move 


backwards 


over a line boundary 






1 "31 1 


> 










AOUD 


1^19 

1 jiz 


SE701 


LDX 


ZD6 


; if at top of screen 


E703 


D006 


1313 




BNE 


BE 7 OB 




E705 


86D3 


1314 




SIX 


ZD3 


;set cursor position to line 


E707 


68 


1315 




PLA 






E708 


68 


1316 




PLA 




; remove ovm return address 


E709 


D09D 


1317 




BNE 


BE6A8 


;arul exit 


E70B 


CA 


1318 


BE70B 


DEX 




;else back up one line 


E70C 


86D6 


1319 




STX 


ZD6 




E70E 


206CE5 


1320 




JSR 


SE56C 


;set address of current screen line 


E711 


AAD5 


1321 




LDY 


ZDS 


;moVe line length of current line 


E713 


84D3 


1322 




STY 


ZD3 


;to position of cursor on line 


E715 


60 


1323 




RTS 
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1325 ;put a character 

1326 ; 

E716 48 1327 SE716 PHA 

E717 85D7 1328 STA ZD7 

E719 8A 1329 TXA 

E71A 48 1330 PHA 

E71B 98 1331 TYA 

E71C 48 1332 PHA 

E71D A900 1333 LDA $00 

E71F 85D0 1334 STA ZDO 

E721 A4D3 1335 LDY ZD3 

E723 A5D7 1336 LDA ZD7 

E725 1003 1337 BPL BE72A 

E727 4CD4E7 1338 JMP JE7D4 

1339 ; 

E72A C90D 1340 BE72A CMP $0D 

E72C D003 1341 BNE BE731 

E72E 4C91E8 1342 JMP JE891 

1343 ; 

E731 C920 1344 BE731 CMP $20 

E733 9010 1345 BCC BE745 

E735 C960 1346 CMP $60 

E737 9004 1347 BCC BE73D 

E739 29DF 1348 AND $DF 

E73B D002 1349 BNE BE73F 

E73D 293F 1350 BE73D AND $3F 

E73F 2084E6 1351 BE73F JSR SE684 

E742 4C93E6 1352 JMP JE693 

1353 ; 

E745 A6D8 1354 BE745 LDX ZD8 

E747 F003 1355 BEQ BE74C 

E749 4C97E6 1356 JMP JE697 
1357 

E74C C914 1358 BE74C CMP $14 

E74E D02E 1359 BNE BE77E 

E750 98 1360 TYA 

E751 D006 1361 BNE BE759 

E753 2001E7 1362 JSR SE701 

E756 4C73E7 1363 JMP JE773 

1364 ; 

E759 20A1E8 1365 BE759 JSR SE8A1 

E75C 88 1366 DEY 

E75D 84D3 1367 STY ZD3 

E75F 2024EA 1368 JSR SEA24 

E762 C8 1369 BE762 INY 

E763 BlDl 1370 LDA (ZD1),Y 

E765 88 1371 DEY 

E766 91D1 1372 STA (ZD1),Y 

E768 C8 1373 INY 

E769 B1F3 1374 LDA (ZF3),Y 

E76B 88 1375 DEY 

E76C 91F3 1376 STA (ZF3),Y 

E76E C8 1377 INY 

E76F C4D5 1378 CPY ZD5 

E771 DOEF 1379 BNE BE762 

E773 A920 1380 JE773 LDA $20 

E775 91D1 1381 STA (ZD1),Y 

E777 AD8602 1382 LDA X0286 

E77A 91F3 1383 STA (ZF3),Y 

E77C 104D 1384 BPL BE7CB 



screen (device 3) 

;save character on stack 
;and in temporary field 



;save XY 

;set saved screen line length to 
;get character position 
;and character 

;if shifted character, skip following 
;if Return 

;perforTn Return function 
;if printable character 



;and not a space 
;map to screen code 
; check for a quote 
;and fill screen 

;if non-printable 
;and inserts pending 
;do not use code 

;if Delete code 



;and not beyond left margin 

;go backwards over line boundary 

; insert a blank 

; check for cursor at line beginning 

; adjust cursor position on line 
;set color memory address 

; compress screen line 



;and color memory 



;up to end of line 

;and insert blank 
;at end 

; Insert current color code 
;in color memory 
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E77E 


A6D4 


1385 


BE77E 


LDX ZD4 


E780 


F003 


1386 




BEQ BE785 


E782 


4C97E6 


1387 
1388 




JMP JE697 


E785 


C912 


1389 


BE785 


CMP $12 


E787 


D002 


1390 




BNE BE78B 


E789 


85C7 


1391 




STA ZC7 


E78B 


C913 


1392 


BE78B CMP $13 


E78D 


D003 


1393 




BNE BE792 


E78F 


2066E5 


1394 




JSR JE566 


E792 


C91D 


1395 


BE792 


CMP $1D 


E794 


D017 


1396 




BNE BE7AD 


E796 


C8 


1397 




INY 


E797 


20B3E8 


1398 




JSR SE8B3 


E79A 


84D3 


1399 




STY ZD3 


E79C 


88 


1400 




DEY 


E79D 


C4D5 


1401 




CPY ZD5 


E79F 


9009 


1402 




BCC BE7AA 


E7A1 


C6D6 


1403 




DEC ZD6 


E7A3 


207CE8 


1404 




JSR SE87C 


E7A6 


AOOO 


1405 




LDY $00 


E7A8 


84D3 


1406 


BE7A8 


STY ZD3 


E7AA 


4CA8E6 


1407 


BE7AA JMP BE6A8 






1408 






E7AD 


C911 


1409 


BE7A0 


CMP $11 


E7AF 


DOID 


1410 




BNE BE7CE 


E7B1 


18 


1411 




CLC 


E7B2 


98 


1412 




TYA 


E7B3 


6928 


1413 




ADC $28 


E7B5 


A8 


1414 




TAY 


E7B6 


E6D6 


1415 




INC ZD6 


E7B8 


C5D5 


1416 




CMP ZDS 


E7BA 


90EC 


1417 




BCC BE7A8 


E7BC 


FOEA 


1418 




BEQ BE7A8 


E7BE 


C6D6 


1419 




DEC ZD6 


E7C0 


E928 


1420 


BE7C0 


SBC $28 


E7C2 


9004 


1421 




BCC BE7C8 


E7C4 


85D3 


1422 




STA ZD3 


E7C6 


D0F8 


1423 




BNE BE7C0 


E7C8 


207CE8 


1424 


BE7C8 


JSR SE87C 


E7CB 


4CA8E6 


1425 
1426 


BE7CB 


JMP BE6A8 


E7CE 


20CBE8 


1427 


BE7CE 


JSR SE8CB 


E7D1 


4C44EC 


1428 




JMP JEC44 



;lf in string mode 

;don't use control functions 



;lf Reverse key 

;set reverse video switch 
;if Home key 

;re-lnltialize cursor position 
;if Cursor Right 



; increment character position 



;if at line end 

; decrement cursor line number 
;go to next line 

;set position of cursor on line 
;and exit 

;if Cursor Dovm 



; advance 40 positions 

; increment cursor line number 
;if not beyond line end 

;exit 

;else back up one line 

;decrease character position by 40 

;exit if underflow 

;else reset position of cursor on line 

;set next line number 
;exit 

; check for a color code 

; check for special CliR$ codes, return 
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1430 ;put shifted 

1431 ; 



E7D4 297F 


1432 


JE7D4 


AND 


$7F 


E7D6 C97F 


1433 




CMP 


$7F 


E7D8 D002 


1434 




BNE 


BE 7 DC 


E7DA A95E 


1435 




LDA $5E 


E7DC C920 


1436 


BE7DC 


CMP 


$20 


E7DE 9003 


1437 




BCC 


BE7E3 


E7E0 4C91E6 


1438 
1439 




JMP 


JE691 


E7E3 CSOD 


1440 


BE7E3 


CMP 


$0D 


E7E5 D003 


1441 




BNE 


BE7EA 


E7e7 4CS1E8 


1442 
1443 




Jmp 


JE891 


E7EA A6D4 


1444 


BE7EA LDX 


ZD4 


E7EC D03F 


1445 




BHE 


BE82D 


E7EE C914 


1446 




CMP 


$14 


E7F0 D037 


1447 




BNE 


BE829 


E7F2 A4D5 


1443 




LDY 


ZD 5 


E7F4 BlDl 


1449 




LDA 


(ZD1),Y 


E7F6 C920 


1450 




CMP 


$20 


E7F8 D004 


1451 




BNE 


BE7FE 


E7FA C4D3 


1452 




CPY 


ZD3 


E7FC D007 


1453 




BNE 


BE805 


E7FE C04F 


1454 


EE7FE 


CPY $4F 


E800 F024 


1455 




BEQ 


BE826 


E802 2065E9 


1456 




JSR 


SE965 


E805 a4D5 


1457 


BE805 


LDY 


ZD 5 


E807 2024EA 


1458 




JSR 


SEA24 


E80A 88 


1459 


BE80A DEY 




E80B BlDl 


1460 




LDA 


(ZD1),Y 


E80D C8 


1461 




INY 


E80E 91D1 


1462 




STA 


(ZD1),Y 


E810 88 


1463 




DEY 


E811 B1F3 


1464 




LDA 


(ZF3),Y 


E813 C8 


1465 




INY 


E814 91F3 


1466 




STA 


(ZF3),Y 


ES16 38 


1467 




DEY 




E817 C4D3 


1468 




CPY 


ZD3 


E819 DOEF 


1469 




BNE 


BE80A 


E81B A920 


1470 




LDA $20 


E81D 91D1 


1471 




STA 


(ZD1),Y 


E81F AD8602 


1472 




LDA X0286 


E822 91F3 


1473 




STA (ZF3),Y 


E824 E6D8 


1474 




INC 


ZDS 


C826 4CA8E6 


1475 
1476 


BE826 


JMP 


BE6A8 


E829 A6D8 


1477 


BE829 


LDX 


ZD8 


E82B F005 


1478 




BEQ 


BE832 


E82D 0940 


1479 


EE82D ORA $40 


E82F 4C97E6' 1480 




JMP 


JE697 




1481 








E832 C911 


1482 


BE832 


CMP 


$11 


E834 DO 16 


1483 




BNE 


BE84C 


E836 A6D6 


1484 




LDX 


ZD6 


E838 F037 


1485 




BEQ 


BE871 


E83A C6D6 


1486 




DEC 


ZD 6 


E83C A5D3 


1487 




LDA 


ZC3 


E83E 38 


1488 




SEC 




E83F E928 


1489 




SBC 


$28 



:ers to screen 

; remove shift bit 
;lf code for PI 

; set screen code for PI 
; If printable 

;go fill screen 

;lf shifted Return 

;do Return function 

; if In string mode 

;do not perform control functions 

; if Insert key 



;and last character of line is a blank 

;and not also current char position 

; then enough space on this line 

; if last character of line not blank 

;and 80 character line, ignore 

; else insert a blank line in screen RAM 

;get new maximum character position 

; set color memory address 

; f rom new maximum character position 

;move characters 

; towards end of line 

; plus color memory 



;up to current position 



; insert a blank 

; insert current color in color memory 
;add 1 to pending Inserts count 
; and exi t 

; if any pending inserts 

;add screen shift bit 
;go fill screen 

; if Cursor Up key 

;and cursor not on top screen line 
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IT ft A 1 




1490 




BCC 


BE847 


•ami /'«iT*T*OTi1" miffflnf* nfisl t" "I OH > = uO 


E.OH J 


ojUj 






ST A 




)d€Cir6&S6 coutiC l^Y 40 


E845 


102a 


1492 




BPL 


BE871 


J Slid 6x1. t 






1493 


BE847 


JSR 


SE56C 


J set dddress of cuirrent scireeii li.ne 


E84A 


D025 


1494 




BNE 


BE871 




E84C 










5 iz 




E84E 




1496 




BNE 


BE854 




E850 


Ayuu 


1 A 07 




LDA 










1498 




STA 


ZC7 


• /'leaf r'auarce ■w^ f1 swi t"f*ll 


E854 


C91D 


1499 


BE854 


CMP 


$ ID 




E856 


D012 


1500 




BNE 


BE86A 




E858 




1501 




TYA 






E859 


F009 


1502 




BEQ 


BE864 


J and cursor not beyond left margin , 


E85B 


20A1E8 


1503 




JSR 


SE8A1 


;check for left edge of a screen line 


E85E 


Q Q 






DEY 




f back up cursor one position 


E85F 








STY 


ZD 3 


J a HQ Set CUX^oUI. UeW pUO-LL-LUU 


CiOO L 


4CA8E6 


1 

1 JUD 
1 JU/ 




JMP 


UTTA Aft 


J and exit 


E864 


2001E7 


1508 


BE864 


JSR 


SE701 


;go backwards over line boundary 


Eod/ 


4CA8E6 


1 ';nQ 
1 t^i n 

I31U 




JMP 


BE6A8 


J and exit 


E8dA 


C913 


1511 


BE86A 


CMP 


?1J 


,1£ LLK K,ey 


E86C 


D006 


1512 




BNE 


BE874 




E86E 




1513 




JSR 


SE544 


y re~ Initialize screen 


E871 


4CA8E6 


1514 
1515 


BE871 


JMP 


BE6A8 


;and exit 


E874 


0980 


1516 


BE874 


ORA 


$80 


; restore code to original value 


E876 


20CBE8 


1517 




JSR 


SE8CB 


;check for a color change keystroke 


E879 


4C4FEC 


1518 
1519 


> 


JMP 


JEC4F 


; check for special CHR$ values and re: 






1520 


;set next 


line number 






LjcL 










E87C 


4dC9 


1522 


SE87C 


LSR 


ZC9 


;set saved line # on screen Invalid 


E87E 




1523 




LDX 


ZD6 


;get current line number 




ITS 


1 ^9 A 


BE880 


INX 




;and increment it 


CiOOi 


E019 






CPX 


$19 


;lf at end of screen 


E883 


D003 


1526 




BNE 


BE888 




E885 


20EAE8 


1527 




JSR 


SE8EA 


; scroll screen 


E888 


B5D9 


1528 


BE888 


LDA 


ZD9,X 


;lf 80 character line, 


E88A 


10F4 


1529 




BPL 


BE880 


; repeat 


E88C 


86D6 


1530 




STX 


ZD6 


; store new line number 


E88E 


4C6CE5 


1531 




JMP 


SE56C 


;set addr of current screen line and : 
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1533 ;actlon for Return 







1534 








E891 


A200 


1535 


JE891 


LDX $00 




E893 


86D8 


1536 




SIX ZDS 


J clear petidlng Inserts count 


E895 


86C7 


1537 




STX ZC7 


preset reverse video switch 


E897 


86D4 


1538 




STX ZD4 


preset string £la.g 


E899 


86D3 


1539 




STX ZD3 


jset cursor to position on line 


E89B 


207CE8 


1540 




JSR SE87C 


; set next line number 


E89E 


4CA8E6 


1541 
1542 




JMP BE6A8 


J and exit 






1543 


J move 


cursor to 


previous line if at start of a screen 






1544 








E8A1 


A202 


1545 


SE8A1 


LDX $02 




E8A3 


A900 


1546 




LDA $00 




E8A5 


C5D3 


1547 


BE8A5 


CMP ZD3 




E8A7 


F007 


1548 




BEQ BE8B0 


J a t the left edge of a screen line 


E8A9 


18 


1549 




CLC 




E8AA 


6928 


1550 




ADC $28 


• set A for next left edge 


E8AC 


CA 


1551 




DEX 




E8AD 


D0F6 


1552 




BNE BE8A5 


• and repeat a maximum of 2 times 


E8AF 


60 


1553 
1554 




RTS 




E8B0 


C6D6 


1555 


BE8B0 


DEC ZD6 


J since cursor at left edge ^ 


E8B2 


60 


1556 
1557 




RTS 


jmove cursor to previous line 






1558 


;move 


cursor to 


next line if at end of a screen line 






1559 








E8B3 


A202 


1560 


SE8B3 


LDX $02 




E8B5 


A927 


1561 




LDA $27 




E8B7 


C5D3 


1562 


BE8B7 


CMP ZD3 


J if cursor is not at the end of a 


E8B9 


F007 


1563 




BEQ BE8C2 




E8BB 


18 


1564 




CLC 




E8BC 


6928 


1555 




ADC $28 


• point to next end of screen line 


E8BE 


CA 


1556 




DEX 




E8BF 


D0F6 


1567 




BNE BE8B7 


;and repeat a maximum of 2 times 


E8C1 


50 


1568 
1569 




RTS 




E8C2 


A6D6 


1570 


BE8C2 


LDX ZD6 


; since cursor at right edge. 


E8C4 


E019 


1571 




CPX $19 




E8C6 


F002 


1572 




BEQ BE8CA 




E8C8 


E6D6 


1573 




INC ZD6 


;add I to cursor line number 


E8CA 


60 


1574 
1575 


BE8CA 


RTS 


;if cursor not on last screen line 






1576 


; check for a color change keystroke 






1577 








E8CB 


A20F 


1578 


SE8CB 


LDX $0F 




E8CD 


DDDAE8 


1579 


BE8CD 


CMP TE8DA, 


X ; compare keystroke to color codes 


E8D0 


F004 


1580 




BEQ BE8D6 




E8D2 


CA 


1581 




DEX 




E8D3 


10F8 


1582 




BPL BE8CD 


;repeat for all 16 codes 


E8D5 


60 


1583 
1584 




RTS 




E8D6 


8E8602 


1585 


BE8D6 


STX X0236 


;set current color code upon a mate 


E8D9 


60 


1586 
1587 




RTS 




E8DA 




1588 


TE8DA 




; color codes 


E8DA 9005 IC 


1589 




.BY $90,$05,$1C,$9F,$9C,$1E,$1F,$9E 


E8E2 


819596 


1590 




.BY $81,$95,$96,$97,$98,$99,$9A,$9B 
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1 (iOO 


; scroll screen 






1593 






E8EA 


A5AC 


1594 


SE8EA 


LDA ZAC 


E8EC 


HO 






PHA 


ESED 


A5AD 


1596 




LDA ZAD 


E8EF 


48 


1597 




PHA 


E8F0 


A'i AT? 


1598 




LDA ZAE 


E8F2 


48 


1599 




PHA 


E8F3 


A5AF 


1600 




LDA ZAF 


E8F5 




iOUi 




PUA 


E8F6 


A2FF 




BE8F6 LDX $FF 


E8F8 


C6D6 


1603 




DEC ZD6 


E8FA 


C6C9 


1604 




DEC ZC9 


E8FC 


CEA502 


1605 




DEC X02A5 


E8FF 


E8 


1606 


BE8FF 


INX 


E900 


20F0E9 


1607 




JSR SE9F0 


E903 


E018 


1608 




CPX $18 


E905 


BOOC 


1609 




BCS BE913 


E907 


BDFIEC 


1610 




LDA TECF0+1,X 


E90A 


85AC 


1611 




STA ZAC 


E90C 


B5DA 


1612 




LDA ZDA.X 


E90E 


20C8E9 


1613 




JSR SE9C8 


E911 


30EC 


1614 




BMI BE8FF 


E913 


20FFE9 


1615 


BE913 


JSR SE9FF 


E916 


A200 


1616 




LDX $00 


E918 


B5D9 


1617 


BE918 LDA ZD9,X 


E91A 


297F 


1618 




AMD $7F 


E91C 


B4DA 


1619 




LDY ZDA.X 


E91E 


1002 


1620 




BPL BE922 


E920 


0980 


1621 




ORA $80 


E922 


95D9 


1622 


BE922 


STA ZD9,X 


E924 


es 






INX 


E925 


E018 


1 AO /i 




CPX $18 


TTO*) 7 


DOEF 


1625 




BNE BE918 


E929 


A5F1 


1626 




LDA ZFl 


E92B 


0980 


1627 




ORA $80 


E92D 


85F1 


1628 




STA ZFl 


E92F 


A5D9 


1629 




LDA ZD9 


E931 


10C3 


1630 




BPL BE8F6 


E933 


E6D6 


1631 




INC ZD6 


ttqi <; 

C.7 J J 


EEA502 


1 D 




INC X02A5 




Ay 1 r 


1 All 
ID J J 




LDA $7F 


E93A 








STA XDCOO 


E93D 


ADOlDC 


1635 




LDA XDCOl 


E940 


C9FB 


1636 




CMP $FB 


E942 


08 


1637 




PHP 


E943 


A97F 


1638 




LDA $7F 


E945 


8D00DC 


1639 




STA XDCOO 


E948 


28 


1640 




PLP 


E949 


DO OB 


1641 




BNE BE956 


E94B 


AO 00 


1642 




LDY $00 


E94D 


EA 


1643 


BE94D 


NOP 


E94E 


CA 


1 AAA 




DEX 


E94F 


dofc 


1 AA 1^ 




BNE BE94D 


E951 


88 


1646 




DEY 


E952 


D0F9 


1647 




BNE BE94D 


E954 


84C6 


1648 




STY ZC6 


E956 


A6D6 


1649 


BE956 LDX ZD6 


E958 


68 


1650 


JE958 


PLA 


E959 


85AF 


1651 




STA ZAF 



;save I/O pointers on stack 



; Initialize line pointer 
;move cursor to previous line 
;also input cursor 

;and position of first 40 char line 

;set screen address 

;if 24 lines not moved up, 
;use screen line address table 
;to set next source address 
;high byte also 
;niove one line up 
;and repeat 

; clear last screen line 

;set a line to 80 character 
;it next line is 80 characters 

;set to 40 clcistlti lire 



;repeat until bottom of screen reached 
;set bottom line to 40 character 



;if top line is 80 characters, 
;then scroll up again 
;else add 1 to cursor line number 
;and position of first 40 char line 



;if CTRL key is depressed. 



; delay to slow scrolling down 



; clear keyboard buffer count 
;put cursor line number in X 

;restore I/O area from stack 
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E95B 68 1652 PLA 

E95C 85AE 1653 STA ZAE 

E95E 68 1654 PLA 

E95F 85AD 1655 STA ZAD 

E961 68 1656 PLA 
E962 85AC 1657 STA ZAC 

E964 60 1658 RTS 

1659 ; 

1660 ; insert a blank line In screen RAM 

1661 ; 





iOOZ 


OCi70 J 


LDX 


ZD6 


£i7D/ CiO 


100 J 




INX 






1 AA/i 




LDA 


ZD9,X 


ttqaa ihipb 


iOOj 




BPL 


JE967 




1666 




STX 


X02A5 


E.7Dr ElULo 


1667 




CPX 


$18 


irQ7i vnnxf 
Ei7 / I r uuci 


lOOO 




BEQ BE981 




1 AAQ 




BCC 


BE981 




1670 




JSR 


SE8EA 




1671 




LDX 


X02A5 


E97B CA 


1672 




DEX 






1673 




DEC 


ZD6 


E97E 4CDAE6 


1674 
1675 




JMP 


BE6DA 


E981 A5AC 


1676 


BE981 


LDA 


ZAC 


E983 48 


1677 




PHA 




E984 A5AD 


1678 




LDA 


ZAD 


E986 48 


1679 




PHA 




E987 A5AE 


1680 




LDA 


ZAE 


E989 48 


1681 




PHA 




E98A A5AF 


1682 




LDA 


ZAF 


E98C 48 


1683 




PHA 




E98D A219 


1684 




LDX $19 


E98F TA 


1685 


BE98F 


DEX 




E990 20F0E9 


1686 




JSR 


SE9F0 


E993 ECA502 


1687 




CPX 


X02A5 


E996 900E 


1688 




BCC 


BE9A6 


E998 FOOC 


1689 




BEQ BE9A6 


E99A BDEFEC 


1690 




LDA 


TECF0-1,X 




1691 




STA 


ZAC 


E99F B5D8 


1692 




LDA 


ZD8,X 


E9A1 20C8E9 


1693 




JSR 


SE9C8 


E9A4 30E9 


1694 




BMI 


BE98F 


E9A6 20FFE9 


1695 


BE9A6 


JSR 


SE9FF 


E9A9 A217 


1696 




LDX $17 


E9AB ECA502 


1697 


BE9AB 


CPX 


X02A5 


E9AE 900F 


1698 




BCC 


BE9BF 


E9B0 B5DA 


1699 




LDA 


ZDA.X 


E9B2 297F 


1700 




AND $7F 


E9B4 B4D9 


1701 




LDY 


ZD9,X 


E9B6 1002 


1702 




BPL 


BE9BA 


E9B8 0980 


1703 




ORA $80 


E9BA 95DA 


1704 


BE9BA 


STA 


ZDA.X 


E9BC CA 


1705 




DEX 




E9BD DOEC 


1706 




BNE 


BE9AB 


E9BF AEA502 


1707 


BE9BF 


LDX X02A5 


E9C2 20DAE6 


1708 




JSR 


BE6DA 


E9C5 4C58E9 


1709 




JMP 


JE958 



; start from current cursor line position 



;sklp 80 column lines 

jsave position of first 40 column line 
;if line 24 



; scroll screen 

; first 40 column line beyond cursor 
;minus 1 = new cursor line number 
; decrement cursor line number 
;and go reset screen line pointers 

;save I/O pointers on the stack 



; initialize to line 25 

;set true screen address in ZDl/2 
;if not past first 40 column line, 



;to set source address 

;move one line up 

;and repeat 

; clear screen line 

;if first 40 column line = 24 or 25, 



;set next line to 40 column 

;if current line is 80 column, 
;make into 40 column 



;and repeat 

;get first 40 column line beyond cursor 
; ad just line pointers 
;and exit 
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1711 


;move 


one 


screen line 






1712 


; 








E9C8 


2903 


1713 


SE9C8 


AND 


$03 


; adjust addr to clear 40/80 column 


E9CA 


0D8802 


1714 




ORA 


X0288 


;add screen memory page 


E9CD 


8 SAD 


1715 




STA 


ZAD 


;and save high part of addrsss 


E9CF 


20E0E9 


1716 




JSR 


SE9E0 


;set color memory address In ZAE/F 


E9D2 


A027 


1717 




LDY 


$27 




E9D4 


BIAC 


1718 


BE9D4 


LDA 


(ZAC),Y 


;move screen byte 


E9D6 


91D1 


1719 




STA 


(ZDD.Y 




E9D8 


BIAE 


1720 




LDA 


(ZAE),Y 


;move color memory byte 


E9DA 


91F3 


1721 




STA 


(ZF3),Y 




E9DC 


88 


1722 




DEY 






E9DD 


10F5 


1723 




BPL 


BE9D4 


; repeat for one screen line 


E9DF 


60 


1724 
1725 




RTS 










1726 


:set color and screen addresses 






1727 










E9E0 


2024EA 


1728 


SE9E0 


JSR 


SEA24 


;set color memory pointer in ZF3/4 


E9E3 


A5AC 


1729 




LDA 


ZAC 


;move low byte of screen address 


E9E5 


85AE 


1730 




STA 


ZAE 




E9E7 


A5AD 


1731 




LDA 


ZAD 


;get high byte of screen address 


E9E9 


2903 


1732 




AND $03 


;strip 40/80 column flag 


E9EB 


09D8 


1733 




ORA $D8 


;add screen page for color memory 


E9ED 


85AF 


1734 




STA 


ZAF 


;and store result 


E9EF 


60 


1735 
1736 




RTS 










1737 


; fetch screen address, depending on X 






1738 










E9F0 


BDFOEC 


1739 


SE9F0 


LDA 


TECFO.X 


;set low byte of screen address 


E9F3 


85D1 


1740 




STA 


ZDl 




E9F5 


B5D9 


1741 




LDA 


ZD9,X 


; fetch high byte 


E9F7 


2903 


1742 




AND $03 


; strip 40/80 column flag 


E9F9 


0D8802 


1743 




ORA 


X0288 


;add screen memory page 


E9FC 


85D2 


1744 




STA 


ZD2 


;and store result 


E9FE 


60 


1745 




RTS 
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1747 


; clear one screen 


line 






1748 


> 




E9FF 


A027 


1749 


SE9FF LDY $27 




EAOl 


20FOE9 


1750 


JSR SE9F0 


;set true screen RAM address 


EA04 


2024EA 


1751 


JSR SEA24 


;set color memory address 


EA07 


A920 


1752 


BEA07 LDA $20 


EA09 


91D1 


1753 


STA (ZDl) ,Y 


; clear a byte in video RAM 


EAOB 


20DAE4 


1754 


JSR SE4DA 


; clear a byte in color memory 


EAOE 


EA 


1755 


NOP 


; (length adjustment for patch) 


EAOF 


88 


1756 


DEY 




EAIO 


10F5 


1757 


BPL BEA07 


; repeat for one line 


EA12 


60 


1758 


RTS 








1759 


; 








1760 


;set cursor flash 


timing and color memory address 






1761 


i 


EA13 


A8 


1762 


SEA13 TAY 




EA14 


A902 


1763 


LDA $02 




EA16 


85CD 


1764 


STA ZCD 


;inlt cursor flash timing countdovm 


EA18 


2024EA 


1765 


JSR SEA24 


;set color memory address 


EAIB 


98 


1766 


TYA 






1767 


; 








1768 


; store a character 


• to the screen 






1769 


; 




EAIC 


A4D3 


1770 


SEAIC LDY ZD3 


; fetch position on line 


EAIE 


91D1 


1771 


STA (ZD1),Y 


;move char to current screen addres! 


EA20 


8A 


1772 


TXA 


; fetch character color 


EA21 


91F3 


1773 


STA (ZF3) ,Y 


;move to color memory 


EA23 


60 


1774 


RTS 






1775 










1776 


;set color memory 


address parallel to screen 






1777 


* 




EA24 


A5D1 


1778 


SEA24 LDA ZDl 


;move low screen address 


EA26 


85F3 


1779 


STA ZF3 


;to low of color memory address 


EA28 


A5D2 


1780 


LDA ZD2 


; fetch high of screen address 


EA2A 


2903 


1781 


AND $03 


; clear 40/80 column flag 


EA2C 


09D8 


1782 


ORA $D8 


;adjust to color memory area 


EA2E 


85F4 


1783 


STA ZF4 


;set high of color memory address 


EA30 


60 


1784 


RTS 







1786 


; s candard 


IRQ entry 








1787 


* 








EA31 


20EAFF 


1788 


WEA31 


JSR 


SFFEA 


;bump real time clock 


EA34 


A5CC 


1789 




LDA 


zee 


; check cursor flash enable flag 


EA36 


D029 


1790 




BNE 


BEA61 


; don't flash if non-zero 


EA38 


C6CD 


1791 




DEC 


ZCD 


;decrement cursor flash countdown 


EA3A 


D025 


1792 




BNE 


BEA61 


;and skip if not finished (flash delay) 


EA3C 


A914 


1793 




LDA 


$14 


;reset jiffy count for next cursor flip 


EA3E 


85CD 


1794 




STA 


ZCD 




EA40 


A4D3 


1795 




LDY 


ZD3 


; fetch cursor position 


EA42 


46CF 


1796 




LSR 


ZCF 


; shift cursor flash phase 


EA44 


AE8702 


1797 




LDX 


X0287 


; fetch color under cursor 


EA47 


BlDl 


1798 




LDA 


(ZD1),Y 


;get character under cursor 


EA49 


BOH 


1799 




BCS 


BEA5C 


; branch if not first entry for character 


EA4B 


E6CF 


1800 




INC 


ZCF 


;set cursor flash phase to 1 


EA4D 


85 CE 


1801 




STA 


ZCE 


;save character under cursor 


EA4F 


2024EA 


1802 




JSR 


SEA24 


;set color memory address 


EA52 


B1F3 


1803 




LDA 


(ZF3),Y 




EA54 


8D8702 


1804 




STA 


X0287 


;save color under cursor 


EA57 


AE8602 


1805 




LDX 


X0286 


;get current color code 


EA5A 


A5CE 


1806 




LDA 


ZCE 


;get current character 


EA5C 


4980 


1807 


BEA5C 


EOR 


$80 


; invert character 


EASE 


201CEA 


1808 




JSR 


SEAIC 


; display on screen 


EA61 


A501 


1809 


BEA61 


LDA 


ZOl 


; check cassette sense line 


EA63 


2910 


1810 




AND 


$10 




EA65 


FOOA 


1811 




BEQ 


BEA71 


;if no buttons pressed 


EA67 


AOOO 


1812 




LDY 


$00 




EA69 


84C0 


1813 




STY 


ZCO 


; clear tape motor flag 


EA66 


A501 


1814 




LDA 


ZOl 




EA6D 


0920 


1815 




ORA 


$20 


;turn motor off 


EA6F 


D008 


1816 




BNE 


BEA79 


;JMP 


EA71 


A5C0 


1817 


BEA71 


LDA 


ZCO 


; check tape motor flag 


EA73 


D006 


1818 




BNE 


BEA7B 




EA75 


A501 


1819 




LDA 


ZOl 


;if flag shows motor should be on. 


EA77 


291F 


1820 




AND 


$1F 


;turn cassette motor on 


EA79 


8501 


1821 


BEA79 


STA 


ZOl 




EA7B 


2087EA 


1822 


BEA7B 


JSR 


SEA87 


;scan keyboard 


EA7E 


AU\J\Ju\j 






LDA 




J c±ear any penaxng lrxi s xn 


EA81 


68 


1824 




FLA 




;restore all registers 


EA82 


A8 


1825 




TAY 






EA83 


68 


1826 




FLA 






EA84 


AA 


1827 




TAX 






EA85 


68 


1828 




PLA 






EA86 


40 


1829 




RTI 




; return from IRQ 
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1 H11 
10 Ji 


\ sc 


keyboard 






1832 








CiAo / 




tOj J 


SEAo/ 


LDA 


$00 


EA89 








STA 


X028D 


EA8C 


AO 40 


1835 




LDY 




EA8E 


84CB 


iO jD 




STY 


ZCB 


EA90 




1 Q17 
io J / 




STA 








IojO 




LDX 


XDCOl 




eoff 


1839 




CPX 


$FF 


EA98 


rUD i 


1840 




BEQ 


BIT Airn 


EA9 A 


Afi 
AO 


iOH 1 




TAY 




EA9B 


AQfil 


1 Q/. *) 




LDA 


SiCiOO 1 


EA9D 


85F5 


1 Q/. 1 
LOh J 




STA 


ZF5 


EA9F 


A9EB 






IiDA 




EAAl 


85F6 


1845 




STA 


ZF6 


EAA3 


A9FE 


1846 




LDA 


$FE 


EAA5 


8D00DC 


1847 




STA 


XDCUU 


EAA8 


A208 


1848 


BEAA8 


LDX 


$08 


EAAA 


48 


1849 




PHA 




EAAB 


ADUIDC 


1850 


BEAAB 


LDA 


XDCOL 


EAAE 




185 1 




CMP 


XDCOl 


EABl 


D0F8 


1852 




BNE 


BEAAB 


EAB3 


4A 




BEAB3 


LSR 


A 


EAB4 


B016 


1854 




BCS 


BEACC 


EAB6 


48 


1855 




PHA 




EAB7 


B1F5 


1030 




LDA 


(ZF5) ,Y 


EAB9 


C905 


LO J / 




CMP 


$05 


EABB 


booc 


J.O jO 






BP APQ 


EABD 




lO J7 




CMP 


$03 


EABF 


F008 


1860 




BEQ 


BEAC9 


EACl 




1861 




ORA 


X028D 


EAC4 




1862 




STA 


X028D 


EAC7 


1002 


1863 




BPL 




EAC9 


84CB 


iOO't 


BE AC 9 


CTV 
D 1 X 




EACB 


Do 


lOO J 


BEACB 


PLA 




EACC 


nQ 
L.O 


ioDO 


BEACC 


INY 




EACD 


C041 


1867 




CPY 


$41 


EACF 


BOOB 


1868 




BCS 


BEADC 


EADI 


CA 


1869 




DEX 




EAD2 


DODF 


1870 




BNE 


BSAB3 


EAD4 


38 


1871 




SEC 




EAD5 


68 


1872 




PLA 




EAD6 


2A 


1873 




ROL 


A 


EAD7 


oDUUDC 


1874 




STA 


AUOUU 


EADA 


docc 


1875 




BNE 


BEAA8 


EADC 


DiS 


ID /O 


BEADC 


PLA 




EADD 




1877 

iO / 




JMP 




EAEO 


A4CB 


iO / 


J£iA£<U 


LDY 


ZCB 


EAE2 


B1F5 


1880 




LDA 




EAE4 


AA 


1881 




TAX 




EAE5 


C4C5 


1882 




CPY 


ZC5 


EAE7 


F007 


1883 




BEQ 


BEAFO 


EAE9 


AOlO 


1884 




LDY 


$10 


EAEB 


8C8C02 


1885 




STY 


X028C 


EAEE 


D036 


1886 
1887 




BNE 


BEB26 


EAFO 


297F 


1888 


BEAFO 


AND 


$7F 


EAF2 


2C8A02 


1889 




BIT 


X028A 


EAF5 


3016 


1890 




BMI 


BEBOD 



; clear shif t/control flag 

;set key pressed flag to default 
; clear row 
; check column 

;if a key pressed 
;save in Y 

;set address of standard keyboard table 
;in keyboard table pointer 

;& high byte 

;set first row 
; column count 

;save current row on stack 
;read a column 

;wait until steady 

;if a key is pressed, 
;save on stack 

; fetch keyboard table contents 
;if < 5 

; check for Commodore key 

;add possible shif t/control flag 
;to set keyboard shif t/control flag 

;set key pressed 
;restore last code read 



;lf scan not complete, 

; check next bit in column data 

;else restore row position 

; select next row , 

;and repeat 
; res tore code 

; perform kbd decode routine (EB48) 

; fetch key pressed 

; decode via keyboard table 

;if not the same as the last key, 

;set repeat key delay counter 
;and skip repeat logic 

;if repeat flag has 

;bit 7 set, repeat all keys 
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EAF7 


7049 


1891 




BVS 


BEB42 


EAF9 


C97F 


1892 




CMP 


$7F 


EAFB 


F029 


1893 


BEAFB 


BEQ 


BEB26 


EAFD 


C914 


1894 




CMP 


$14 


EAFF 


FOOC 


1895 




BEQ 


BEBOD 


EBOl 


C920 


1896 




CMP 


$20 


EB03 


F008 


1897 




BEQ 


BEBOD 


EB05 


C91D 


1898 




CMP 


$1D 


EB07 


F004 


1899 




BEQ 


BEBOD 


EB09 


C911 


1900 




CMP 


$11 


EBOB 


D035 


1901 




BNE 


BEB42 


EBOD 


AC8C02 


1902 


BEBOD 


LDY 


X028C 


EBIO 


F005 


1903 




BEQ 


BEB17 


EB12 


CE8C02 


1904 




DEC 


X028C 


EB15 


D02B 


1905 




BNE 


BEB42 


EB17 


CE8B02 


1906 


BEB17 


DEC 


X028B 


EBIA 


D026 


1907 




BNE 


BEB42 


EBIC 


A004 


1908 




LDY 


$04 


EBIE 


8C8B02 


1909 




STY 


X028B 


EB21 


A4C6 


1910 




LDY 


ZC5 


EB23 


88 


1911 




DEY 




EB24 


lOlC 


1912 




BPL 


BEB42 


EB26 


A4CB 


1913 


BEB26 


LDY 


ZCB 


EB28 


84C5 


1914 




STY 


ZC5 


EB2A 


AC8D02 


1915 




LDY 


X028D 


EB2D 


8C8E02 


1915 




STY 


X028E 


EB30 


EOFF 


1917 




CPX 


$FF 


EB32 


FOOE 


1918 




BEQ 


BEB42 


EB34 


8A 


1919 




TXA 




EB35 


A6C6 


1920 




LDX 


ZC5 


EB37 


EC8902 


1921 




CPX 


X0289 


EB3A 


B006 


1922 




BCS 


BEB42 


EB3C 


9D7702 


1923 




STA 


X0277,X 


EB3F 


E8 


1924 




INX 




EB40 


86C6 


1925 




SIX 


ZC5 


EB42 


A97F 


1925 


BEB42 


LDA 


$7F 


EB44 


8D00DC 


1927 




STA 


XDCOO 


EB47 


60 


1928 
1929 


; 


RTS 




EB48 


AD8D02 


1930 


WEB48 


LDA 


X028D 


EB4B 


C903 


1931 




CMP 


$03 


EB4D 


D015 


1932 




BNE 


BEB64 


EB4F 


CD8E02 


1933 




CMP 


X028E 


EB52 


FOEE 


1934 




BEQ 


BEB42 


EB54 


AD9102 


1935 




LDA 


X0291 


EB57 


301D 


1935 




BMI 


BEB76 


EB59 


AD18D0 


1937 




LDA 


XD018 


EB5C 


4902 


1938 




EOR 


$02 


EB5E 


8D18D0 


1939 




STA 


XD018 


EB61 


4C76EB 


1940 




JMP 


BEB75 



;exit when flag > 53 



;delete 
; space 

; cursor right/ left 
;cursor down/up 

;if none of above, don't repeat 
; check repeat key delay counter 
; countdown complete 

;subtract 1 from repeat key delay ctr 
; subtract 1 from repeat key freq ctr 



; reset repeat key frequency counter 
; check keyboard buffer count 

; branch If something in keyboard queue 

;move current key 

;to last key 

;move shif t/control flag 

;to last shift pattern 



; check keyboard queue length 

;agaln8t maximum allowed 

;branch if buffer full 

;else move character to keybord queue 

;add 1 to length of keyboard queue 
;set PAl bits high 



;check shift/control flag 

;for Commodore key and shift depressed 

;if so, and code is different 

;from last keyboard shift pattern 

;and not in shift lock mode 



; then toggle lower case/upper case bit 
;set video chip bit for proper display 
;exit 
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1942 


; select new keyboard table 






1943 


> 






EB64 


OA 


1944 


BEB64 


ASL 


A ; double entry Index 


EB65 


C908 


1945 




CMP 


$08 ;lf index is too high. 


EB67 


9002 


1946 




BCC 


BEB6B 


EB69 


A906 


1947 




LDA 


$06 ; select "Control Key" keyboard 


EB6B 


AA 


1948 


BEB6B 


TAX 




EB6C 


BD79EB 


1949 




LDA 


TEB79,X ; fetch low byte from table 


EB6F 


85F5 


1950 




STA 


ZF5 ;and set keyboard table pointer 


EB71 


BD7AEB 


1951 




LDA 


TEB79+1,X 


EB74 


85F6 


1952 




STA 


ZF6 ;& high byte 


EB76 


4CE0EA 


1953 


BEB76 JMP 


JEAEO ;exit 






1954 












1955 


; table of 


keyboard table addresses 






1956 








EB79 


81EB 


1957 


TEB79 


.W 


TEB81 ; Standard keyboard 


EB7B 


C2EB 


1958 




.W 


TEBC2 ;" Shift" keyboard 


EB7D 


03EC 


1959 




.W 


TEC03 ; "Commodore Key" keyboard 


EB7F 


78EC 


1960 
1961 


> 


.W 


TEC78 ; "Control" keyboard 






1962 


; standard 


keyboard 






1963 








EB81 


140D1D 


1964 


TEB81 


.BY 


$14,$0D,$1D,$88,$85,$86,$87,$11 


EB89 


335741 


1965 




.BY 


$33, $57, $41, $34, $5A, $53, $45, $01 


EB91 


355244 


1966 




.BY 


$35, $52, $44, $36, $43, $46, $54, $58 


EB99 


375947 


1967 




.BY 


$37, $59, $47, $38, $42, $48, $55, $56 


EBAl 


39494A 


1968 




.BY 


$39,$49,$4A,$30,$4D,$4B,$4F,$4E 


EBA9 


2B504C 


1969 




.BY 


$2B,$50,$4C,$2D,$2E,$3A,$40,$2C 


EBBl 


5C2A3B 


1970 




.BY 


$5C,$2A,$3B,$13,$01,$3D,$5E,$2F 


EBB9 


315F04 


1971 
1972 




.BY 


$31,$5F,$04,$32,$20,$02,$51,$03,$FF 






1973 


; "Shift" keyboard table 






1974 








EBC2 


948D9D 


1975 


TEBC2 


.BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 


EBCA 


23D7C1 


1976 




.BY $23,$D7,$C1,$24,$DA,$D3,$C5,01 


EBD2 


25D2C4 


1977 




.BY 


$25,$D2,$C4,$26,$C3,$C6,$D4,$D8 


EBDA 


27D9C7 


1978 




.BY $27,$D9,$C7,$28,$C2,$C8,$D5,$D6 


EBE2 


29C9CA 


1979 




.BY $29,$C9,$CA,$30,$CD,$CB,$CF,$CE 


EBEA 


DBDOCC 


1980 




.BY $DB,$D0,$CC,$DD,$3E,$5B,$BA,$3C 


EBF2 


A9C05D 


1981 




.BY $A9,$C0,$5D,$93,$01,$3D,$DE,$3F 


EBFA 


215F04 


1982 




.BY $21,$5F,$04,$22,$A0,$02,$Dl,$83,$Fr 






1983 


» 










1984 


; "Cominodore Key" keyboard table 






1985 








ECO 3 


948D9D 


1986 


TEC03 


.BY $94,$8D,$9D,$8C,$89,$8A,$8B,$91 


ECOB 


96B3B0 


1987 




.BY $96,$B3,$B0,$97,$AD,$AE,$B1,$01 


EC13 


98B2AC 


1988 




.BY $98,$B2,$AC,$99,$BC,$BB,$A3,$BD 


ECIB 


9AB7A5 


1989 




.BY $9A, $B7 , $A5 , $9B ,$BF, $B4 , $B8 , $BE 


EC23 


29A2B5 


1990 




.BY $29 , $A2 , $B5 , $30 , $A7 , $A1 , $B9 , $AA 


EC2B 


A6AFB6 


1991 




.BY $A6,$AF,$B6,$DC,$3E,$5B,$A4,$3C 


EC33 


A8DF5D 


1992 




.BY $A8 , $DF , $5D , $93 , $01 , $3D , $DE , $3F 


EC3B 


815F04 


1993 




.BY $81,$5F,$04,$95,$A0,$02,$AB,$83,$FF 







1995 


; check for special 


CHR$ values 






1996 


; 








EC44 


C90E 


1997 


JEC44 


CMP 


$0E 


;if CHR$(14) to be printed. 


EC46 


D007 


1998 




BNE 


JEC4F 




EC48 


AD18D0 


1999 




LDA 


XD018 




EC4B 


0902 


2000 




ORA 


$02 


;set value for unshift/ shift 


EC4D 


D009 


2001 




BNE 


BEC58 


;reset address and exit 


EC4F 


C98E 


2002 


JEC4F 


CMP 


$8E 


;lf CHR$(142) to be printed. 


EC51 


DOOB 


2003 




BNE 


BEC5E 




EC53 


AD18D0 


2004 




LDA 


XD018 




EC56 


29FD 


2005 




AND 


$FD 


;set value for shift/ graphic 


EC58 


8D18D0 


2006 


BEC58 


STA 


XD018 


; reset video chip register 


EC5B 


4CA8E6 


2007 
2008 


BEC5B 
; 


JMP 


BE6A8 


;exit 


EC5E 


C908 


2009 


BEC5E 


CMP 


$08 


;if CHR$(8) to be printed, 


EC60 


D007 


2010 




BNE 


BEC69 




EC52 


A980 


2011 




LDA 


$80 


;set shift mode to locked 


EC64 


OD9102 


2012 




ORA 


X0291 




EC57 


3009 


2013 




BMI 


BEC72 


;and exit 


EC69 


C909 


2014 


BEC69 


CMP 


$09 


;if CHR$(9) to be printed. 


EC6B 


DOEE 


2015 




BNE 


BEC5B 




EC5D 


A97F 


2016 




LDA 


$7F 


; clear shift lock flag 


EC6F 


2D9102 


2017 




AH) 


X0291 




EC72 


8D9102 


2018 


BEC72 


STA 


X0291 


; condition shi.ft lock flag 


EC75 


4CA8E6 


2019 
2020 




JMP 


BE6A8 


;exit 






2021 


; "Control 


Key" keyboard table 






2022 










EC78 


FFFFFF 


2023 


TEC78 


.BY 


$FF,$FF,$FF, $FF, $FF, $rF, $FF, $FF 


EC80 


IC1701 


2024 




.BY 


$1C,$17,$01,$9F,$1A,$13,$05,$FF 


EC88 


9C1204 


2025 




.BY 


$9C,$12,$04,$1E,$03,$06,$14,$18 


EC90 


1F1907 


2026 




.BY 


$1F,$19,$07,$9E,$02,$08,$15,$16 


EC98 


12090A 


2027 




.BY 


$12,$09,$0A,$92,$0D,$0B,$0F,$0E 


ECAO 


FFIOOC 


2028 




.BY 


$FF,$10,$0C,$FF,$FF,$1B,$00,$FF 


ECA8 


ICFFID 


2029 




.BY 


$1C,$FF,$1D,$FF,$FF,$1F,$1E,$FF 


ECHO 


9006FF 


2030 




.BY 


$90 , $06 , $FF, $05 , $FF, $FF, $11,$FF,$FF 



ECB9 00 
ECBA 00 
ECBB 00 
ECBC 00 
ECHO 00 
ECBE 00 
ECBF 00 
EC CO 00 
ECCl 00 
ECC2 00 
ECC3 00 
ECC4 00 
ECC5 00 
ECC6 00 
■ECC7 00 
ECC8 00 
ECC9 00 
ECCA 9B 
ECCB 37 
ECCC 00 
ECCD 00 
ECCE 00 
ECCF 08 
ECDO 00 
ECDl 14 
ECD2 OF 
ECD3 00 
ECD4 00 
ECD5 00 
ECD6 00 
ECD7 00 
ECD8 00 
ECD9 OE 
ECDA 06 
ECDB 01 
ECDC 02 
ECDD 03 
ECDE 04 
ECDF 00 
ECEO 01 
ECEl 02 
ECE2 03 
ECE3 04 
ECE4 05 
ECE5 06 
ECE6 07 



ECE7 4C4F41 
ECEC 52554E 



ECFO 002850 
ECF8 406890 
EDOO 80A8D0 



2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 



TECB9 



.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
-BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
.BY 
MOB 



$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$00 
$9B 
$37 
$00 
$00 
$00 
$08 
$00 
$14 
$0F 
$00 
$00 
$00 
$00 
$00 
$00 
$0E 
$06 
$01 
$02 
$03 
$04 
$00 
$01 
$02 
$03 
$04 
$05 
$06 
$07 

7 color 



video 


chip 








;+ 


00, 


MOB 





X 


position 


;+ 


01, 


MOB 





Y 


pos 




;+ 


02, 


MOB 


1 




pos 


i i°° 


;+ 


03, 


MOB 


1 


Y 


pos 


lti°° 


;+ 


04, 


MOB 


2 


X 


poi 


°" 


; + 


05, 


MOB 


2 


Y 


pos 




;+ 


06, 


MOB 


3 


X 


pof 


ition 


;+ 


07, 


MOB 


3 


Y 


pos 


ition 


;+ 


08, 


MOB 


4 


X 


pos 


ition 


;+ 


09, 


MOB 


4 


Y 


pos 


ition 


;+ 


OA, 


MOB 


5 


X 


pos 


ition 


;+ 


OB, 


MOB 


5 


Y 


pos 


ition 


;+ 


OC, 


MOB 


6 


X 


pos 


ition 


;+ 


OD, 


MOB 


6 


Y 


pos 


ition 


;+ 


OE, 


MOB 


7 


X 


pos 


ition 


; + 


OF, 


MOB 


7 


Y 


pos 


ition 


;+ 


10, 


MSB 


of X po 


sition 



RC3, DEN, RSEL, Yl and YO set 
Raster Register 
Light Pen X 
Light Pen Y 
MOB Enable 
CSEL set 
MOB Y expand 
Memory Pointers 
Interrupt Register 
Enable Interrupts 
MOB-Data priority 
MOB Multi-Color selection 
MOB X-expand 
MOB-MOB collision 
MOB-Data collision 
Exterior color 
Background # color 
Background It 1 color 
Background #2 color 
Background # 3 color 
MOB Multi-Color # 
MOB Multi-Color # 1 
MOB color 
MOB 1 color 
MOB 2 color 
MOB 3 color 
MOB 4 color 
MOB 5 color 
MOB 6 color 



initialized to $4C 



;+2E, 

; keyboard buffer entry for shift of Run/ Stop key 

IECE7 .BY 'L,'0,'A,'D,$OD 
.BY 'R,'U,'N,$OD 

; table of low bytes of screen line addresses 

TECFO .BY $00,$28,$50,$78,$AO,$C8,$FO,$18 
.BY $4O,$68,$90,$B8,$E0,$08,$30,$58 
.BY $80,$A8,$D0,$F8,$2O,$48,$70,$98,$C0 
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2093 


;sead 


TALK on serial bus 






2094 


> 








ED09 


0940 


2095 


SED09 ORA $40 


;add offset for TALK 


EDOB 




2096 
2097 




-BY 


$2C 


jslcip next Instruction 






2098 


* 


LISTEN on 


serial bus 






2099 










EDOC 


0920 


2100 




ORA 


$20 


;add offset for LISTEN 


edoe 


20A4F0 


2101 




JSR 


SF0A4 


;protect against RS-232 NMI's 


EDll 


48 


2102 


SEDl 1 


PUA 




f save code to tiransmi-t 


ED12 


2494 


2103 




BIT 


294 


'if r\n A at" a i(5 nPnH intf 






2104 




BPL 


BED20 






38 


2105 




SEC 






TTTil 7 


6 6 A3 


2106 




ROR 


ZA3 


* set EOI f Xag 


ED19 




2107 




JSR 


SED40 


J output byte oq seirlal bus 


EDIC 


4694 


2108 




LSR 


294 


•f*1»av A at" ft TiArxHTio fl aff 


EDlE 


4 6 A3 


2109 




T CD 




; clear EOI flag 


ED20 


68 


2110 


BED20 


FLA 




'move code to transmit 


ED2 1 


8595 


2111 




STA 


Z95 


• ijito ttie output buffer 


ED23 


78 


2112 




SEI 






ED24 


2097EE 


2113 




JSR 


SEE97 


ocXXaX l/Uo x xilG X\/ w 


ED27 


C93F 


9 1 1 A 




CMP 


$3F 




ED29 


UUUJ 


9 1 1 




BNE 


BED2E 


y xx not uniiio iCiM 


ED2B 




9 1 1 A 
Z 110 




JSR 


SEE85 


1 set serial clock low 


ED2E 




2117 


BED2E 


LDA 


XDDOO 




ED31 


0908 


2118 




ORA 


$08 




ED33 


8D00DD 


2119 




STA 


XDDOO 


;set serial ATN line high 


ED36 


78 


2120 


SED36 


SEI 




; disable IRQ 


ED37 


208EEE 


2121 




JSR 


SEE8E 


;set serial clock high 


ED3A 


209 7EE 


2122 




JSR 


SEE97 


;set serial data low 


ED3D 


20B3EE 


2123 




JSR 


SEEB3 


;delay I millisecond 
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2125 


; send 


a byte fr< 






2126 








ED40 


78 


2127 


SED40 


SEI 




ED41 


2097EE 


2128 




JSR 


SEE97 


ED44 


20A9EE 


2129 




JSR 


SEEA9 


ED47 


B064 


2130 




BCS 


BEDAD 


ED49 


2085EE 


2131 




JSR 


SEE85 


ED4C 


24A3 


2132 




BIT 


ZA3 


ED4E 


lOOA 


2133 




BPL 


BED5A 


ED50 


20A9EE 


2134 


BED50 


JSR 


SEEA9 


ED53 


90FB 


2135 




BCC 


BED50 


EDS 5 


20A9EE 


2136 


BED55 


JSR 


SEEA9 


ED58 


BOFB 


2137 




BCS 


BED55 


ED5A 


20A9EE 


2138 


BED5A 


JSR 


SEEA9 


ED5D 


90FB 


2139 




BCC 


BED5A 


ED5F 


208EEE 


2140 




JSR 


SEE8E 


ED62 


A908 


2141 




LDA 


$08 


ED64 


85A5 


2142 




STA 


ZA5 


ED66 


ADOODD 


2143 


BED66 


LDA 


XDDOO 


ED69 


CDOODD 


2144 




CMP 


XDDOO 


ED6C 


D0F8 


2145 




BNE 


BED66 


ED6E 


OA 


2146 




ASL 


A 


ED6F 903F 


2147 




BCC 


BEDBO 


ED71 


6695 


2148 




ROR 


Z95 


ED73 


B005 


2149 




BCS 


BED7A 


ED75 


20A0EE 


2150 




JSR 


SEEAO 


ED78 


D003 


2151 




BNE 


BED7D 


ED7A 


2097EE 


2152 


BED7A 


JSR 


SEE97 


ED7D 


2085EE 


2153 


BED7D 


JSR 


SEE85 


ED80 


EA 


2154 




NOP 




ED81 


EA 


2155 




NOP 




ED82 


EA 


2156 




NOP 




EDS 3 


EA 


2157 




NOP 




ED84 


ADOODD 


2158 




LDA 


XDDOO 


ED87 


29DF 


2159 




AND 


$DF 


ED89 


0910 


2160 




ORA 


$10 


ED8B 


8D00DD 


2161 




STA 


XDDOO 


ED8E 


C6A5 


2162 




DEC 


ZA5 


ED90 


D0D4 


2163 




BNE 


BED66 


ED92 


A904 


2164 




LDA 


$04 


ED94 


8D07DC 


2165 




STA 


XDC07 


ED97 


A919 


2166 




LDA 


$19 


ED99 


8D0FDC 


2167 




STA 


XDCOF 


ED9C 


ADODDC 


2168 




LDA 


XDCOD 


ED9F 


ADODDC 


2169 


BED9F 


LDA 


xdcod 


EDA2 


2902 


2170 




AND 


$02 


EDA4 


DOOA 


2171 




BNE 


BEDBO 


EDA6 


20A9EE 


2172 




JSR 


SEEA9 


EDA9 


B0F4 


2173 




BCS 


BED9F 


EDAB 


58 


2174 




CLI 




EDAC 


60 


2175 
2176 




RTS 




EDAD 


A980 


2177 


BEDAD 


LDA 


$80 


EDAF 


2C 


2178 




.BY 


$20 


EDBO 


A903 


2179 


BEDBO 


LDA 


$03 


EDB2 


201CFE 


2180 


JEDB2 


JSR 


SFEIC 


EDB5 


58 


2181 




CLI 




EDB6 


18 


2182 




CLC 




EDB7 


904A 


2183 




BCC 


BEE03 



Z95 on serial bus 

; disable IRQ 

;seC serial data low 

;test data level 

;lf high, indicate device not present 
;set serial clock low 

;i£ EOI flag Is set 

;wait for data high 

;walt for data low 

;wait for data high (end of EOI pulse) 
;set output clock high 

; initialize bit count 



;wait for PA2 to steady 
;if data high not received, 
; indicate a timeout 
; fetch bit to send 
;if bit is a 0, 
;send a 

;else send a 1 

;set serial clock low 

;hold clock/data lines for 3 usee 



;set serial data line low 
;and clock high 

;if 8 bits not sent 
;repeat 

;set TBHl to $04xx 

;set CBl to force load, one shot and TBI 
; clear pending IRQ bits in ICRl 



;if underflow on TB, indicate 

;repeat test until data line is low 
; enable IRQ 



;set Device Not Present 

;skip next instruction 

;set Timeout bits (read and write) 

;add bits in A to ST 



;set ATN low and exit 
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2185 


; send 


Secondary 


Address (after LISTEN) on serial bus 






2186 








EDB9 


8595 


2187 


SEDB9 


STA Z95 


;save serial deferred character 


EDBB 


2036ED 


2188 




JSR SED36 


;send on serial bus 


EDBE 


nlJKJKJlJU 


2 189 


SEDBE 


LDA XDDOO 




EDCl 


29f7 


2190 




AND $F7 


;set ATN low 


EDC3 


8D00DD 


2191 




STA XDDOO 




EDC6 


60 


2192 
2193 




RTS 








2194 


•send 
* 


Secondary 


Address (after TALK) on serial bus 






2195 








EDC7 


8595 


2196 


SEDC7 


STA Z95 


;save serial deferred character 


EDC9 




2197 




JSR SED36 


;send on serial bus 


EDCC 


78 


2198 


SEDCC 


SEX 




EDCD 


20A0EE 


2199 




JSR SEEAO 


;set serial data high 


EDDO 




2200 




JSR SEDBE 


;set ATN high 


EDD3 


2085EE 


2201 




JSR SEE85 


;set serial clock low 


EDD6 


A7 


2202 


BEDD6 


JSR SEEA9 


;read serial clock 


EDD9 


30FB 


2203 




BMI BEDD6 


J loop until serial clock goes low 


EDDB 


JO 


2204 




CLI 


; enable IRQ 


EDDC 


An 


2205 
2206 




RTS 








2207 


; output byte on 


serial bus 






2208 


; 






EDDD 


2494 


2209 


JEDDD 


BIT Z94 




EDDF 


3005 


2210 




BMI BEDE6 


;if no data buffered. 


EDEl 


38 


2211 




SEC 




EDE2 


6694 


2212 




ROR Z94 


;set serial deferred flag 


EDE4 


D005 


2213 




BNE BEDEB 




EDE6 


48 


2214 


BEDE6 


PHA 


;else save character on stack 


EDE7 


2040ED 


2215 




JSR SED40 


;send deferred character on serial bus 


EDEA 


68 


2216 




PLA 




EDEB 


8595 


2217 


BEDEB 


STA Z95 


;save new serial deferred character 


EDED 


18 


2218 




CLC 




EDEE 


60 


2219 
2220 




RTS 








2221 


; send 


TALK on serial bus 






2222 








EDEF 


78 


2223 


SEDEF 


SEI 


;disable IRQ 


EDFO 


208EEE 


2224 




JSR SEE8E 


;set serial clock low 


EDF3 


ADOODD 


2225 




LDA XDDOO 




EDF6 


0908 


2226 




ORA $08 


;set serial ATN high 


EDF8 




2227 




STA XDDOO 




EDFB 


A95F 


2228 




LDA $5F 


;set A to code for TALK 


EDFD 


2C 


2229 
2230 


> 


.BY $2C 


;skip next instruction 






2231 


; send 


UNLISTEN on serial bus 






2232 


> 






EDFE 


A93F 


2233 


SEDFE 


LDA $3F 


;set A to code for UNLISTEN 


EEOO 


2011ED 


2234 




JSR SEDll 


;send code in A on serial bus 


EE03 


20BEED 


2235 


BEE03 


JSR SEDBE 


;set ATN low 


EE06 


8A 


2236 


SEE06 


TXA 




ee67 


A20A 


2237 




LDX $0A 




EE09 


CA 


2238 


BEE09 


DEX 




EEOA 


DOFD 


2239 




BIJE BEE09 


; pause 52 microseconds 


EEOC 


AA 


2240 




TAX 




EEOD 


2085EE 


2241 




JSR SEE85 


;set serial clock low 


EEIO 


4C97EE 


2242 




JMP SEE97 


;set serial data low and return 
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2244 ; Input byte on serial bus 







2245 


; 










EE13 


78 


2246 


JEE13 


SEI 




;<Jisable IRQ 




EE14 


A900 


2247 




LDA $00 




EE16 


85A5 


2248 




STA 


ZA5 


; clear bit coimt 




EE18 


2085EE 


2249 




JSR 


SEE85 


;set serial clock low 




EEIB 


20A9EE 


2250 


BEEIB 


JSR 


SEEA9 


;read serial clock 




EEIE 


lOFB 


2251 




BPL 


BEEIB 


;and loop until high 




EE20 


A901 


2252 


BEE20 


LDA $01 




EE22 


8D07DC 


2253 




STA XDC07 


; prime TBHl with $01xx 




EE25 


A919 


2254 




LDA $19 






EE27 


8D0FDC 


2255 




STA 


XDCOF 


;set CBl to force load, one 


shot & 


EE2A 


2097EE 


2256 




JSR 


SEE97 


;set serial data low 




EE2D 


ADODDC 


2257 




LDA 


XDCOD 


; clear pending IRQ bits in 


ICRl 


EE30 


ADODDC 


2258 


BEE30 


LDA XDCOD 




EE33 


2902 


2259 




AND $02 






EE35 


D007 


2260 




BNE 


BEE3E 


;if not underflow in TB 




EE37 


20A9EE 


2261 




JSR 


SEEA9 


;read serial clock and data 




EE3A 


30F4 


2262 




Bra 


BEE30 


;repeat if clock still low 




EE3C 


1018 


2263 




BPL 


BEE56 


;else go receive byte 




EE3E 


A5A5 


2264 


BEE3E 


LDA 


ZA5 


;when underflow on TB and not firsi 


EE40 


F005 


2265 




BEQ 


BEE47 






EE42 


A902 


2266 




LDA $02 


;set read timeout in ST 




EE44 


4CB2ED 


2267 
2268 




JMP 


JEDB2 






EE47 


20A0EE 


2269 


BEE47 


JSR 


SEEAO 


;set serial data high 




EE4A 


2085EE 


2270 




JSR 


SEE85 


;set serial clock low 




EE4D 


A940 


2271 




LDA $40 






EE4F 


201CFE 


2272 




JSR 


SFEIC 


;set EOI in ST 




EE52 


E6A5 


2273 




INC 


ZA5 


;add one to bit count 




EE54 


DOCA 


2274 




BNE 


BEE20 


;and repeat 




EE56 


A908 


2275 


BEE56 


LDA $08 




EE58 


85A5 


2276 




STA 


ZA5 


;set bit count to 8 




EE5A 


ADOODD 


2277 


BEE5A 


LDA 


XDDOO 






EE5D 


CDOODD 


2278 




CMP 


XDDOO 






EE60 


D0F8 


2279 




BNE 


BEE5A 


;wait until PA2 is steady 




EE62 


OA 


2280 




ASL 


A 




EE63 


10F5 


2281 




BPL 


BEE5A 


;loop until clock bit rises 




EE65 


66A4 


2282 




ROR 


ZA4 


;add data bit to byte being 


read 


EE67 


ADOODD 


2283 


BEE67 


LDA 


XDDOO 




EE6A 


CDOODD 


2284 




CMP 


XDDOO 






EE6D 


D0F8 


2285 




BNE 


BEE67 


;wait until PA2 is steady 




EE6F 


OA 


2286 




ASL 


A 




EE70 


30F5 


2287 




BMl 


BEE67 


;and for clock line to fall 




EE72 


C6A5 


2288 




DEC 


ZA5 






EE74 


D0E4 


2289 




BNE 


BEE5A 


;loop until 8 bits read 




EE76 


20A0EE 


2290 




JSR 


SEEAO 


;set serial data high 




EE79 


2490 


2291 




BIT 


Z90 




EE7B 


5003 


2292 




BVC 


BEE80 


;if EOI is high 




EE7D 


20O6EE 


2293 




JSR 


SEE06 


; pause 52 usee, set clock and data 


EE80 


A5A4 


2294 


BEE80 


LDA 


ZA4 


; restore byte read 




EE82 


58 


2295 




CLI 




; enable IRQ 




EE83 


18 


2296 




CLC 






EE84 


60 


2297 




RTS 
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2299 


J set serial clock, line low 








2300 






EES 5 


ADOODD 


2301 






EE88 


29EF 


2302 


AND $r>r 




EE8A 


8D00DD 


2303 


Oj.A AUUKiKJ 




EE8D 


60 


2304 


RTS 








2305 


> 








2306 


;set serial clock line high 








2307 






EE8E 


ADOODD 


2308 


SEEoE LDA XDDUU 




EE91 


0910 


2309 


ORA 5iU 




EE93 


8D00DD 


2310 


oiA aUUUU 




EE96 


60 


2311 


RTS 








2312 


> 








2313 


;set serial data line low 








2314 






EE97 


ADOODD 


2315 


SEE97 LDA XDDOO 




EE9A 


29DF 


2316 


AND $DF 




EE9C 


8D00DD 


2317 


ST A XDDOO 




EE9F 


60 


2318 


RTS 








2319 


> 








2320 


;set serial data line high 








2321 


» 




EEAO 


ADOODD 


2322 


SEEAO LDA XDDOO 




EEA3 


0920 


2323 


ORA $20 




EEA5 


8D00DD 


2324 


ST A XDDOO 




EEA8 


60 


2325 


RTS 








2326 


'* 








2327 


;wait for PA2 to steady 








2328 


;exit with data bit in C 








2329 


;and clock bit in N 








2330 






EEA9 


ADOODD 


2331 


SEEA9 LDA XDDOO 




EEAC 


CDOODD 


2332 


CMP XDDOO 




EEAF 


D0F8 


2333 


BNE SEEA9 ;wait until 


PA2 is steady 


EEBl 


OA 


2334 


AbL A jSnirt aara 


into C and clock into 


EEB2 


60 


2335 










2336 


RTS ^ ^ 








2337 


;delay 1 millisecond 








2338 






EEB3 


8A 


2339 


SEEB3 TXA ;save A 




EEB4 


A2B8 


2340 


LDX $B8 initialize 


delay counter 


EEB6 


CA 


2341 


BEEB6 DEX 




EEB7 


DOFD 


2342 


BNE BEEB6 ;perform delay of 1 millisecond 


EEB9 


AA 


2343 


TAX ;restore A 




EEBA 


60 


2344 


RTS 
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2346 


\ 86 1 


next bit to 




2347 


> 










> LDA ZB4 


ppun irriA7 
EitLDU rU*f/ 






BEQ BEF06 


CiCiDf J\Jjp 


n ^n 




BMI BEFOO 








T O T> 1 

LbK ZBo 


TTpn A9nn 

CitjI^J AZUU 


01 "iO 

Z J 






EEC5 9001 


2353 








2354 








2355 




TXA 


FFr9 4SRn 


2356 




PAD VDI^ 


EECB 85BD 


2357 




STA ZBD 




Z J JO 




UC<U ZB4 


FFfF Ffinfi 


2359 




Rim oct?T\7 
DhlJ BbiSD/ 




2360 


BEEDl 


TXA 


FFD? 9QnA 


2361 




AWJJ ^U^l- 




2362 




blA 


FFTlfi fin 


?ifii 

Z jD*! 


* 


RTS 


FTrn7 AQ7n 


Z JO J 


BEE07 


LDA $20 




Z JOO 




BIT X0294 


CiEiLftj rUi4 


2367 




BEQ BEEF2 




2368 




BMI BEEFC 


£iCii!iU /um 


z joy 




BVS BEEF 6 




2370 




LDA ZBD 


17 1717 /, T\f\ (\ 1 


2371 




BNE BEEE7 


CiEiCjO la 


2372 


BEEE6 


DEX 


T?t71? 7 /^£dA 


2373 


BEEE7 


DEC ZB4 


TjwTro ATtomo 


2374 




LDA X0293 




Z J / 3 




BPL BEEDl 


CiCiCiCi VjOo4 


9 1 7 1 
Z J / o 




DEC ZB4 


CiEiryJ U\JUr 


917 7 
Z J/ / 




BNE BEEDl 


WV) PArA 
Cillir £. ElODH 


9 17Q 
Z J / O 


DCiCif Z 


INC ZB4 




91 7Q 

Zj /y 




BNE BEEE6 




2380 


DEiCiJ? 


LDA ZBD 




2381 




I~\ n 17 C T7 "7 

tihCj fiEEE/ 




91H9 
Z JOZ 




BNE BEEE6 


FFFr 70FQ 


2383 




D\70 TJ T7T7 TP "7 


FFFF SflFfi 


2384 




RTT/^ 'DC*1717Z 

BVO BEEEo 


FFOn PfiRA 


Z J03 


DJir UU 


XNL ZB4 


c>r uz AZf r 


9 IfiA 
Z JOD 




LDX $FF 


FFflii norn 


2387 




BNE BEEDl 


FFOfi An9An? 


2388 


RPPftA 
D&f UO 


T ■nA VAOOA 
LUA AuZyit 


EF09 4a 


2389 




LSR A 


FFOA 9007 


2390 






EFOC 2C01DD 


2391 




RTT VTMVM 
Oil AUDUi 


EFOF lOin 


2392 




R DT D IT 1? 9 1? 


EFll SOIF 


2393 






EFl'i A900 


2394 


BEF13 


7 nA crin 


EF15 8SRn 


2395 




CTA 


EF17 85B5 


2396 




QTA ^Rt; 


Elf 1? AlLVoUZ 


OIQ 7 

z / 




LDX X0298 


Jir LKj ood4 


2398 




STX ZB4 


FFIF AfQnn? 


91QQ 




LiLti AUZ7D 


EF21 CC9E02 


2400 




CPY X029E 


EF24 F013 


2401 




BEQ BEF39 


EF26 B1F9 


2402 




LDA (ZF9),Y 


EF28 85B6 


2403 




STA ZB6 


EF2A EE9D02 


2404 




INC X029D 


EF2D 60 


2405 




RTS 



transmit on ttS-232 bus 

; check pending bit count 

;if byte finished, send stop bit(s) 

;if not stop bit, 

; shift next bit to send into C 

;X-00/FF for 0/1 to send 



; compute parity of word being sent 

;decrement bit count 

;if word finished, handle parity 



;set next bit to send 

; check RS-232 Command Register 
;for parity option 
;no parity 

; transmit mark or space parity 
; transmit even parity 
;make parity odd 



;decrement bit count 

;check RS-232 Control Register 

;and branch If only one stop bit needed 

;else decrement bit count 

;and send first of 2 stop bits 

; increment bit count 

;use computed parity 

;to set X for even parity 

;transmlt space parity 
; transmit mark parity 
;bump bit count 

;go send a stop bit 

; check RS-232 Command Register 

;and skip If in 3-line mode 

; error if DSR signal missing 
;or CTS signal missing 

; clear parity 
; clear next bit to send 
;move number of bits to send 
J to bit count 

;lf RS-232 transmit buffer Is not empty 



;move next byte to send 
;to character buffer 

;bump RS-232 transmit buffer output ptr 
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2407 


:handle RS-232 errors 






2408 


; 




EF2E 


A940 


2409 


BEF2E LDA $40 


;add DSR signal missing error bit 


EF30 


2C 


2410 


.BY $2C 


;skip next Instruction 


EF31 


A910 


2411 


BEF31 LDA $10 


;add GTS signal missing error bit 


EF33 


0D97O2 


2412 


ORA X0297 


;to RS-232 Status Register 


EF36 


8D9702 


2413 


STA X0297 




EF39 


A901 


2414 


BEF39 LDA $01 


; clear TA2 IRQ mask 


EF3B 


8D0DDD 


2415 


JEF3B STA XDDOD 


; set/clear ICR2 flags depending on 


EF3E 


4DA102 


2416 


EOR X02A1 




EF41 


0980 


2417 


ORA $80 




EF43 


8DA102 


2418 


STA X02A1 


;set ICR2 activity register 


EF46 


8D0DDD 


2419 


STA XDDOD 


;and ICR2 


EF49 


60 


2420 
2421 


RTS 

; 








2422 


; check control regis 


iter to set word length 






2423 


; 




EF4A 


A209 


2424 


SEF4A LDX $09 


; start with a length of 9 


EF4C 


A920 


2425 


LDA $20 




EF4E 


2C9302 


2426 


BIT X0293 


;check RS-232 Control Register 


EF51 


FOOl 


2427 


BEQ BEF54 


;and branch if word length is 6 or 


EF53 


CA 


2428 


DEX 


;else set X to 8 


EF54 


5002 


2429 


BEF54 BVC BEF58 


;if word length is 7 or 8, exit 


EF56 


CA 


2430 


DEX 




EF57 


CA 


2431 


DEX 




EF58 


60 


2432 
2433 


BEF58 RTS 
» 


;exit with length in X 






2434 


;add bit input on RS-232 bus to word being input 






2435 






EF59 


A6A9 


2436 


JEF59 LDX ZA9 


; check receiver start bit flag 


EF5B 


D033 


2437 


BNE BEF90 


;if a bit is ready. 


EF5D 


C6A8 


2438 


DEC ZA8 


; decrement input bit count 


EF5F 


F036 


2439 


BEQ BEF97 


;lf word is not complete. 


EF61 


300D 


2440 


BMI BEF70 




EF63 


A5A7 


2441 


LDA ZA7 


;use receiver input bit 


EF65 


45AB 


2442 


EOR ZAB 


;to calculate parity 


EF67 


85AB 


2443 


STA ZAB 




EF69 


46A7 


2444 


LSR ZA7 


; shift bit received 


EF6B 


66AA 


2445 


ROR ZAA 


;into byte being read 


EF6D 


60 


2446 
2447 


BEF6D RTS 
> 








2448 


;handle end of word 


for RS-232 input 






2449 






EF6E 


C6A8 


2450 


BEF6E DEC ZA8 


; decrement input bit count 


EF70 


A5A7 


2451 


BEF70 LDA ZA7 


; check receiver input bit 


EF72 


F067 


2452 


BEQ BEFDB 


;if somethine read 


EF74 


AB9302 


2453 


LDA X0293 


;use RS-232 Control Register to 


EF77 


OA 


2454 


ASL A 


; shift stop bit count flag into C 


EF78 


A901 


2455 


LDA $01 




EF7A 


65A8 


2456 


ADC ZA8 


;add possible second stop bit 


EF7C 


DOEF 


2457 


BNE BEF6D 


;to Input bit count and exit 
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2459 
2460 

EF7E A990 2461 
EF80 8D0DDD 2462 
EF83 ODA102 2463 
EF86 8DA102 2464 
EF89 85A9 2465 
EF8B A902 2466 
EF8D 4C3BEF 2467 
2468 



; enable byte reception 



BEF7E LDA $90 

STA XDDOD 
ORA X02A1 
STA X02A1 
STA ZA9 
LDA $02 
JMP JEF3B 



;set Flag bit mask in ICR2 

;plus ICR2 activity register 

;to form new 1CR2 activity register 

;and receiver start bit flag 

;set TB2 mask in ICR2 and exit 



2469 ;receiver start bit test 

2470 ; 

EF90 A5A7 2471 BEF90 LDA ZA7 
EF92 DOEA 2472 BNE BEF7E 

EF94 85A9 2473 STA ZA9 

EF96 60 2474 RTS 

2475 ; 

2476 ;put received data into RS-232 receive buffer 

2477 ; 

2478 BEF97 LDY X029B 



;test receiver input bit 

;if start read, 

; clear start bit flag 



EF97 AC9B02 
EF9A C8 
EF9B CC9C02 
EF9E F02A 
EFAO 8C9B02 2482 
EFA3 88 2483 
EFA4 A5AA 2484 
EFA6 AE9802 2485 



2479 
2480 
2481 



INY 

CPY X029C 
BEQ BEFCA 
STY X029B 
DEY 

LDA ZAA 
LDX X0298 



EFA9 E009 
EFAB F004 
EFAD 4A 
EFAE E8 
EFAF D0F8 
EFBl 91F7 
EFB3 A920 



2486 BEFA9 CPX $09 



2487 
2488 
2489 
2490 
2491 
2492 



EFB5 2C9402 2493 



EFB8 F0B4 
EFBA 30B1 
EFBC A5A7 
EFBE 45AB 
EFCO F003 
EFC2 70A9 
EFC4 2C 
EFC5 50A6 
EFC7 A901 
EFC9 2C 
EFCA A904 
EFCC 2C 
EFCD A980 
EFCF 2-. I 
EFDO A902 
EFD2 0D97O2 
EFD5 8D9702 
EFD8 4C7EEF 

EFDB A5AA 
EFDD DOFl 
EFDF FOEC 



2494 
2495 
2496 
2497 
2498 
2499 
2500 



BEQ BEFBl 
LSR A 
INX 

BNE BEFA9 
BEFBl STA (ZF7),Y 
LDA $20 
BIT X0294 
BEQ BEF6E 
BMI BEF6D 
LDA ZA7 
EOR ZAB 
BEQ BEFC5 
BVS BEF6D 
.BY $2C 



2501 BEFC5 BVC BEF6D 

2502 LDA $01 

2503 .BY $2C 

2504 BEFCA LDA $04 

2505 .BY $2C 

2506 BEFCD LDA $80 

2507 .BY $2C 

2508 BEFDO LDA $02 

2509 ORA X0297 

2510 STA X0297 

2511 JMP BEF7E 

2512 ; 

2513 BEFDB LDA ZAA 

2514 BNE BEFDO 

2515 BEQ BEFCD 



;if RS-232 receive buffer input pointer 

;= RS-232 receive buffer output pointer 
;then receive buffer overrun error 
;bump RS-232 receive buffer input ptr 

; fetch byte received so far in A 
;and number of bits to receive in X 



; right justify input byte 



; store received byte in receive buffer 
; check RS-232 Command Register 
;for parity options 
;no parity 

; parity check disabled 

; fetch receiver parity bit 

;check against calculated parity 

;odd parity received 

;exit if even parity required 

;skip next instruction 

;exit if odd parity required 

;else indicate Parity Error 

;skip next instruction 

; indicate Receiver Buffer Overrun error 

;sklp next instruction 

; Indicate Break Detected error 

;skip next instruction 

; Framing error 

;plus original RS-232 Status Register 
;makes new RS-232 Status Register 
;enable byte reception and exit 

;lf byte received so far is non-zero 
; indicate framing error 
;or break detected error 
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2517 


; output on 


RS-232 


devic6 






2518 


; 








EFEl 


859A 


2519 


JEFEl 


STA 


Z9A 


;set output device 


EFE3 


AD9402 


2520 




LDA 


X0294 


jcnecfc Kb Zj^ uoinoia.iia Kegiscd 


EFE6 


4A 


2521 




LSR 


A 


J ror j~J.ine or a xxut; ui 


EFE7 


9029 


2522 




BCC 


BF012 


;and skip if J-line 


EFE9 


A902 


2523 




LDA $02 




EFEB 


2C01DD 


2524 




BIT 


XDDOl 


J incliCcite error xr u&k. sigu<ij. uij.sbJ.Lig 


EFEE 


lOlD 


2525 




BPL 


BFOOD 


EFFO 


D020 


2526 




BNE 


BF012 


;exit if RTS present 


EFF2 


ADA102 


2527 


BEFF2 


LDA 


X02A1 


; check ICR2 activity register 


EFF5 


2902 


2528 




AND 


$02 




EFF7 


D0F9 


2529 




BNE 


BEFF2 


;and loop until byte received 


EFF9 


2C01DD 


2530 


BEFF9 


BIT 


XDDOl 




EFFC 


70FB 


2531 




BVS 


BEFF9 


;wait for CTS signal 


EFFE 


ADOIDD 


2532 




LDA 


XDDOl 




FOOl 


0902 


2533 




ORA $02 




F003 




:C2.- 




STA 


XDDOl 


;set RTS signal 


F006 


2C01DD 


2535 


BF006 


BIT 


XDDOl 




F009 


7007 


2536 




BVS 


BF012 


;exit if CTS is high 


FOOB 


30F9 


2537 




BMI 


BF006 


;loop if DSR is high 


FOOD 


A940 


2538 


BFOOD 


LDA $40 


;set DSR Signal Missing Error 


FOOF 


8D9702 


2539 




STA 


X0297 


;in RS-232 Status Register 


F012 


18 


2540 


BF012 


CLC 






F013 


60 


2541 
2542 


> 


RTS 










2543 


; buffer character 


to output on RS-232 






2544 










F014 


2028F0 


2545 


BF014 


JSR 


SF028 


; schedule TA2 1 f not transmitting 


F017 


AC9E02 


2545 


SF017 


LDY 


X029E 




FOIA 


C8 


2547 




INY 




; It no room in tne K.&— -cji Dunei: 


FOIB 


CC9D02 


2548 




CPY 


X029D 




FOIE 


F0F4 


2549 




BEQ 


BF014 


;wait until there is room 


F020 


8C9E02 


2550 




STY 


X029E 


J Dump Kb transmit Durtec uucpui. pti. 


F023 


88 


2551 




DEY 






F024 


A59E 


2552 




LDA 


Z9E 


;move buffered character 


F026 


91F9 


2553 




STA 


(ZF9),Y 


; to transmsit buffer 


F028 


ADA102 


2554 


SF028 


LDA 


X02A1 


; check, ICR2 activity register 


F02B 


4A 


2555 




LSR 


A 




F02C 


BOIE 


2556 




BCS 


BF04C 


;lf not transmitting. 


F02E 


A910 


2557 




LDA 


$10 




F030 


8D0EDD 


2558 




STA 


XDDOE 


; force load into CRA2 


F033 


AD9902 


2559 




LDA 


X0299 


;move baud rate full bit time 


F036 


8D04DD 


2560 




STA 


XDD04 


;into TAL2 


F039 


AD9A02 


2561 




LDA 


X029A 




F03C 


8D05DD 


2562 




STA 


XDD05 


; and TAH2 


F03F 


A981 


2563 




LDA 


$81 




F041 


203BEF 


2564 




JSR 


JEF3B 


;set TA2 mask bit in ICR2 


F044 


2006EF 


2565 




JSR 


BEF06 


; perform initialization for new byte 


F047 


A911 


2566 




LDA 


$11 


;set force load and start TA2 in CRA2 


F049 


8D0EDD 


2567 




STA 


XDDOE 




F04C 


60 


2568 


BF04C 


RTS 
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2570 


; Initialize RS-232 






2571 






F04D 


8599 


2572 


JF04D 


STA Z99 


F04F 


AD9402 


2573 




LDA X0294 


F052 


4A 


2574 




LSR A 


F053 


9028 


2575 




BCC BF07D 


F055 


2908 


2576 




AND $08 


F057 


F024 


2577 




BEQ BF07D 


F059 


A902 


2578 




LDA $02 


F05B 


2C01DD 


2579 




BIT XDDOl 


FOSE 


lOAD 


2580 




BPL BFOOD 


F060 


F022 


2581 




BEQ BF084 


F062 


ADA102 


2582 


BF062 


LDA X02A1 


F065 


4A 


2583 




LSR A 


F066 


BOFA 


2584 




BCS BF062 


F068 


ADOIDD 


2585 




LDA XDDOl 


F06B 


29FD 


2586 




AND $FD 


F06D 


8D01DD 


2587 




STA XDDOl 


r070 


ADOIDD 


2588 


BF070 


LDA XDDOl 


F073 


2904 


2589 




AND $04 


F075 


F0F9 


2590 




BEQ BF070 


F077 


A990 


2591 


BF077 




F079 


18 


2592 




CLC 


F07A 4C3BEF 


2593 




IMP TFF'^R 






2594 






F07D 


ADA102 


2595 


BF07D 


LDA X02A1 


F080 


2912 


2596 




AND $12 


F082 


F0F3 


2597 




BEQ BF077 


F084 


18 


2598 


BF084 


CLC 


FOBS 


60 


2599 
2600 


> 


RTS 






2601 


;get next character 






2602 






F086 


AD9702 


2603 


SF086 


LDA X0297 


F089 


AC9C02 


2604 




LDY X029C 


F08C 


CC9B02 


2605 




CPY X029B 


F08F 


FOOB 


2606 




BEQ BF09C 


F091 


29F7 


2607 




AND $F7 


F093 


8D9702 


2608 




STA X0297 


F096 


B1F7 


2609 




LDA (ZF7),Y 


F098 


EE9C02 


2610 




INC X029C 


F09B 


60 


2611 
2612 


t 


RTS 


F09C 


0908 


2613 


BF09C 


ORA $08 


F09E 


8D9702 


2614 




STA X0297 


FOAl 


A900 


2615 




LDA $00 


F0A3 


60 


2616 




RTS 



input 

;set input device 

; check RS-232 Command Register 

;for 3-line or X-line mode 

;and skip if 3-llne 

; check for full/half duplex mode 

;and skip if full duplex 



;error if DSR signal not present 
; check ICR2 activity register 
;if not transmitting, 
; clear RTS line 



;wait for DSR 



;set Flag bit mask in ICR2 and return 

; fetch ICR2 activity register 

;if receiving/waiting for receiver edge, 

; set Flag mask 



from RS-232 input buffer 

;A = contents of RS-232 Status Register 

;if receiver buffer is empty, 

;set flag in RS-232 status register 

;else clear Receiver Buffer Empty flag 

;in RS-232 Status Register 

; fetch character from buffer 

;bump RS-232 receive buffer output ptr 

; indicate Receiver Buffer Empty 

;in RS-232 Status Register 

;and return with a null character 
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2618 


;protect serial/cassette routine from RS-232 NMI's 






2619 


; 






F0A4 


48 


2620 


SF0A4 PHA 




; save A 


F0A5 


ADA102 


2621 


LDA X02A1 




;if no activity in ICR2 


F0A8 


FOll 


2622 


BEQ BFOBB 




;exit 


FOAA ADA102 


2623 


BFOAA LDA X02A1 






FOAD 


2903 


2624 


AND $03 






FOAF 


D0F9 


2625 


BNE BFOAA 




;else wait until not sending/receiving 


FOBl 


A910 


2626 


LDA $10 






F0B3 


8D0DDD 


2627 


STA XDDOD 




; clear Flag bit mask In ICR2 


F0B6 


A900 


2628 


LDA $00 






FOBS 


8DA102 


2629 


STA X02A1 




; clear ICR2 activity register 


FOBB 


68 


2630 


BFOBB PLA 




;restore A 


FOBC 


60 


2631 
2632 


RTS 










2633 


;Kemal 1/0 messages 






2634 








FOBD 


0D492F 


2635 


TFOBD .BY $OD,'I, 


,'/.'0,' ,'E,'R,'R,'0,'R,' ,'#+$80 


F0C9 


OD5345 


2636 


TF0C9 .BY $OD,'S, 


'E, 


'A,'R,'C,'H,'I,'N,'G,' +$80 


F0D4 


464F52 


2637 


TF0D4 .BY 'F.'O,' 


R,' 


+$80 


F0D8 


0D5052 


2638 


TF0D8 .BY $0D,'P, 




'E,'S,'S,' ,'P,'L,'A,'Y,' ,'0,'N,' 


F0E7 


544150 


2639 


.BY 'T'A.'P,' 


E+$80 


FOEB 


505245 


2640 


TFOEB .BY 'P,'R 'E,' 


S,'S,' ,'R,'E,'C,'0,'R,'D,' ,'&,' 


FOFA 


504C41 


2641 


.BY 'P.'L,' 


A,- 


Y,' ,'0,'N,' ,'T,'A,'P,'E+$80 


F106 


0D4C4F 


2642 


TF106 .BY $OD,'L, 


,'0. 


'A,'D,'I,'N,'G+$80 


FlOE 


0D5341 


2643 


TFIOE .BY $OD,'S, 


.'A, 


'V,'I,'N,'G,' +$80 


F116 


0D5645 


2644 


TF116 .BY $OD,'V, 


i'E, 


'R,'I,'F,'Y,'I,'N,'G+$80 


F120 


0D464F 


2645 


TF120 .BY $OD,'F, 


.'0, 


,'U,'N,'D,' +$80 


F127 


0D4F4B 


2646 


TF127 .BY $0D,'0, 


,'K,$8D 






2647 


> 










2648 


; print kernal message indexed by Y 






2649 








F12B 


249D 


2650 


JF12B BIT Z9D 




;exit if not in direct mode 


F12D 


lOOD 


2651 


BPL BF13C 






F12F 


B9BDF0 


2652 


BF12F LDA TFOBD, Y 


; fetch a character from message table 


F132 


08 


2653 


PHP 






F133 


297F 


2654 


AND $7F 




;strip bit 7 


F135 


20D2FF 


2655 


JSR SFFD2 




;print character 


F138 


C8 


2656 


INY 




; advance index 


F139 


28 


2657 


PLP 




;if last char did not contain bit 7, 


F13A 


10F3 


2658 


BPL BF12F 




; repeat 


F13C 


18 


2659 


BF13C CLC 






F13D 


60 


2660 
2661 
2662 
2663 


RTS 

9 

;get a character 






F13E 


A599 


2664 


WF13E LDA Z99 




;if input device 


F140 


D008 


2665 


BNE BF14A 




;ls the keyboard 


F142 


A5C6 


2666 


LDA ZC6 




;and keyboard buffer 


F144 


FOOF 


2667 


BEQ BF155 




;is not empty 


F146 


78 


2668 


SEI 




; disable IRQ 


F147 


ACB4E5 


2669 
2670 


JMP SE5B4 




;then fetch char from keyboard queue 


F14A 


C902 


2671 


BF14A CMP $02 




;if input device is RS-232 


F14C D018 


2672 


BNE BF166 






F14E 


8497 


2673 


SF14E STY Z97 




;save Y 


F150 


2086F0 


2674 


JSR SF086 




;get a char from RS-232 input buffer 


F153 


A497 


2675 


LDY Z97 




;restore Y 


F155 


18 


2676 


Bn55 CLC 






F156 


60 


2677 


RTS 
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2679 


; input a character 








2680 


* 








F157 


A599 


2581 


WF157 


LDA 


Z99 


;if the Input device 


F159 


DOOB 


2682 




BNE 


BF155 


;is the keyboard 


F15B 


A5D3 


2683 




LDA 


ZD3 


;move position of cursor on line 


F15D 


85CA 


2684 




STA 


ZCA 


;to input cursor postion on line 


F15F 


A5D6 


2685 




LDA 


ZD6 


;move cursor line number 


F161 


85C9 


2686 




STA 


ZC9 


; to input cursor line number 


F163 


4C32E6 


2687 
2688 


y 


JMP 


JE632 


;and go input from the keyboard 


F166 


C903 


2689 


BF155 


CMP 


$03 


;if input device is the screen 


F168 


D009 


2690 




BNE 


BF173 




F16A 


85D0 


2591 




STA 


ZDO 


;set screen/keyboard flag to screen 


F16C 


A5D5 


2692 




LDA 


ZDS 


;move screen line length 


F16E 


85C8 


2693 




STA 


ZC8 


;to end of line pointer 


F170 


4C32E6 


2694 
2695 


> 


JMP 


JE632 


;and go input from the screen 


F173 


B038 


2695 


BF173 


BCS 


BFIAD 


;if device > 3 (serial bus), handle 


F175 


C902 


2597 




CMP 


$02 




F177 


F03F 


2698 




BEQ 


BF1B8 


;if input device is RS-232, handle 


F179 


8697 


2699 




SIX 


Z97 


; input device is tape, save X 


F17B 


2099F1 


2700 




JSR 


SF199 


; fetch a byte from tape buffer 


F17E 


B016 


2701 




BCS 


BF196 


;exit upon error 


F180 


48 


2702 




PIIA 




;save byte on stack 


F181 


2099F1 


2703 




JSR 


SF199 


;look ahead in tape buffer 


F184 


BOOD 


2704 




BCS 


BF193 


;and exit upon error 


F186 


D005 


2705 




BNE 


BF18D 


;if at end of file. 


F188 


A940 


2706 




LDA 


$40 


;set end of file bit 


F18A 


201CFE 


2707 




JSR 


SFEIC 


;in ST 


F18D 


C6A6 


2708 


BF18D 


DEC 


ZA6 


; adjust tape buffer ptr back to normal 


F18F 


A697 


2709 




LDX 


Z97 


; restore X 


F191 


68 


2710 




PLA 




; restore byte read 


F192 


60 


2711 
2712 




RTS 






F193 


AA 


2713 


BF193 


TAX 






F194 


68 


2714 




PLA 




;set stack straight 


F195 


8A 


2715 




TXA 






F196 


A697 


2716 


BF196 


LDX 


Z97 


; restore X 


F198 


60 


2717 




RTS 




; error exit with C set 
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2719 


;read 


a byte from 






2720 








F199 


200DF8 


2721 


SF199 


JSR 


SF80D 


F19C 


DOOB 


2722 




BNE 


BF1A9 


F19E 


204 IFo 


2723 




JSR 


SF841 


FlAl 


BOll 


2724 




BCS 


BF1B4 


F1A3 


A900 


2725 




LDA 


$00 


F1A5 


85A6 


2726 




STA 


ZA6 


F1A7 


FOFO 


2727 




BEQ 


SF199 


F1A9 


B1B2 


2728 


BF1A9 


LDA 


(ZB2) ,Y 


FlAB 


18 


2729 




CLC 




FIAC 


60 


2730 
2731 


J 


RTS 




FIAD 


A590 


2732 


BFIAD 


LDA 


Z90 


FIAF 


F004 


2733 




BEQ 


BF1B5 


FlBl 


A90D 


2734 


BFIBI 


LDA 


$0D 


F1B3 


18 


2735 


BF1B3 


CLC 




F1B4 


60 


2736 
2737 


BF1B4 
! 


RTS 








2738 


;read 


a byte from 






2739 


'< 






F1B5 


4C13EE 


2740 
2741 


BF1B5 

; 


JMP 


JEE13 






2742 


;read 


a byte from 






2743 


; 






F1B8 


204EF1 


2744 


BF1B8 


JSR 


SF14E 


FIBB 


B0F7 


2745 




BCS 


BF1B4 


FIBD 


C900 


2746 




CMP 


$00 


FIBF 


D0F2 


2747 




BNE 


BF1B3 


FlCl 


AD9702 


2748 




LDA 


X0297 


F1C4 


2960 


2749 




AND 


$60 


F1C6 


D0E9 


2750 




BNE 


BFIBI 


F1C8 


FOEE 


2751 




BEQ 


BF1B8 



the cassette buffer 

;add 1 to buffer pointer 
;if end of buffer, 
;read next block 
;and exit upon error 

; reset tape buffer pointer 
;and loop back 

; fetch byte from tape buffer 
; indicate no error 
;and return 

;lf ST indicates Device Not Present 
; force a return 



the serial bus 

;input byte from serial bus and return 

the RS-232 bus 

;8et a char from RS-232 input buffer 
;exit upon error 

;exit if receive buffer not empty 
;if RS-232 Status Register 
;indicates DSR Hissing, 
; force a Return 
;else repeat 
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2753 


; output a 








2754 








FICA 


48 


2755 


WFICA 


PlIA 




FICB 


A59A 


2756 




LDA 


Z9A 


FICD 


C903 


2757 




CMP 


$03 


FICF 


D004 


2758 




BNE 


BF1D5 


FlDl 


68 


2759 




PLA 




F1D2 


4C16E7 


2760 
2761 




JMP 


SE716 


F1D5 


9004 


2762 


BF1D5 


BCC 


BFlDB 


F1D7 


68 


2763 




PLA 




F1D8 


4CDDED 


2764 
2765 




JMP 


JEDDD 


FIDB 


4A 


2766 


BFIDB 


LSR 




FIDC 


66 


2767 




PT A 




FIDD 


859E 


2768 




ST A 


Z9E 


FIDF 


8A 


2769 




TXA 




FlEO 


48 


2770 




PHA 




FlEl 


98 


2771 




TYA 




F1E2 


48 


2772 




PHA 




F1E3 


9023 


2773 




BCC 


BF208 


F1E5 


200DF8 


2774 




JSR 


SF80D 


F1E8 


DOOE 


2775 




BNE 


BF1F8 


FlEA 


2064F8 


2776 




JSR 


SF864 


FIED 


BOOE 


2777 




BCS 


BFIFD 


FIEF 


A902 


2778 




LDA 


$02 


FlFl 


AOOO 


2779 




LDY 


$00 


F1F3 


91B2 


2780 




STA 




F1F5 


C8 


2781 




INY 




F1F6 


84 A6 


2782 




STY 


ZA6 


F1F8 


A59E 


2783 


BF1F8 


LDA 


Z9E 


FIFA 


91B2 


2784 




STA 


( ZB2) ,Y 


FIFC 


18 


2785 


JFIFC 


CLC 




FIFD 


68 


2786 


BFIFD 


PLA 




FIFE 


A8 


2787 




TAY 




FIFF 


68 


2788 




PT A 




F200 


AA 


2789 




TAX 




F201 


A59E 


2790 




LDA 


Z9E 


F203 


9002 


2791 




BCC 


BF207 


F205 


A900 


2792 




LDA 


$00 


F207 


60 


2793 
2794 


BF207 


RTS 




F208 


2017F0 


2795 


BF208 


JSR 


SF017 


F20B 


4CFCF1 


2796 




JMP 


JFIFC 



;save character oa stack 
;if output device 
;is the screen 

; restore character 
;and output to screen 

;if output device > 3 

; restore character 

;and output to serial bus 

;set C to 1 for cassette 
;move character to output 
;to temporary storage 



;save XY on stack 

;if output device is cassette 

;add one to tape buffer index 

;if buffer is full, (192 bytes) 

;write block to cassette 

;and exit upon error 

;use use Data code 

;in beginning of next tape buffer 

; initialize tape buffer pointer 
;move character to output 
;into the tape buffer 
; clear error flag 



;restore XY 

jrestore character just output 
;exit if no errors 
;else return with A=0 



;out a character to RS-232 channel 
;and exit 
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2798 ;set Input device 

2799 ; 



F20E 


ZUUr r J 


2800 


WF20E 


JSR 


SF30F 


; check X against logical file table 


F2 11 


F003 


2801 




BEQ 


BF216 


ilf not matched, 


F2 13 


4C01F7 


2802 
2803 




JMP 


JF701 


; indicate File Not Open 


F216 


201FF3 


2804 


BF216 


JSR 


SF31F 


;set logical file, device and sec. adr 


F219 


A5BA 


2805 




LDA 


ZBA 


;if device is keyboard, 


F2 IB 


cm ft 


2806 




BEQ 


BF233 


* exit 


F21D 




2807 




CMP 


$03 


■ if device Is screen , 


F2 if 


F012 


2808 




BEQ 


BF233 


• exit 


F221 


B014 


2809 




BCS 


BF237 


jhandle if device is serial bus (> 3) 


F223 


C902 


2810 




CMP 


$02 




F225 


D003 


2811 




BNE 


BF22A 


;if device is RS-232, 


F227 




2812 
2813 




JMP 


JF04D 


; initialize RS-232 input 


F22A 




2814 


BF22A 


LDX 


ZB9 


J if input device is tape and sec. adr 


F22C 


E060 


2815 




CPX 


$60 


•indicates that this is an input file 


F22E 


F003 


2816 




BEQ 


BF233 


J great , 


r i ju 


4C0AF7 


2817 




JMP 


JF70A 


;else indicate Not Input File Error 


r Z J J 




2819 


BF233 


STA 


Z99 


J set input device 


F235 


Lo 






CLC 




• r»l ofli* prror flap 


F236 


60 


282 1 
2822 




RTS 










2823 


,set 


serial bus 


input device 






2824 










F237 


AA 


2825 


BF237 


TAX 






F238 




2826 




JSR 


SED09 


;send TALK on serial bus 


F236 




2827 




LDA 


ZB9 


; if secondary address specified , 


F23D 


1006 


2828 




BPL 


BF245 


% s end i t 


F23F 


20CCED 


2829 




JSR 


SEDCC 


;else send dtanmy secondary address 


F242 


4C48F2 


2830 
2831 




JMP 


JF248 




F245 


20C7ED 


2832 


BF245 


JSR 


SEDC7 


;send secondard addr (after TALK) 


F248 


8A 


2833 


JF248 


TXA 






F249 


2490 


2834 




BIT 


Z90 




F24B 


10E6 


2835 




BPL 


BF233 


;lf ST shows device present, exit 


F24D 


4C07F7 


2836 




JMP 


JF707 


;else indicate error 
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2838 


,set 


output device 








2839 










r250 


200FF3 


2840 


WF250 


JSR 


SF JOF 


jciieCK A dgdinst logical file table 


F253 


F003 


2841 




BEQ 


BF258 




F255 


4C01F7 


2842 




JMP 


JF701 


J File Not Open Error if not found 






2843 








r258 


201FF3 


2844 


BF258 


JSR 


SF31F 


f S6C XOglCSX rxJ-G y u6Vl.C6 d&Q S6C • ddr 


F25B 


A5BA 


2845 




LDA 


ZBA 


• ^ f f ii'!"'t*pn f" H avl r> a 


F25D 


D003 


2846 




BNE 


BF262 


* ^ nH i e^stt't^a an ^n m if" f 1 1 a 


F25F 


4C0DF7 


2847 


BF25F 


JMP 


JF70D 


jsrror Not Output File 






2848 


BF^62 






F262 


C903 


2849 


CMP 


$03 


J If device Is the screen 


F264 


FOOF 


2850 




BEQ 


BF275 




F266 


BOl 1 


2851 




BCS 


BF279 


jii serial bus device i nandle 


F268 


C902 


2852 




CMP 




jii aevxce is 


F26A 


D003 


2853 




BNE 


BF26F 




F26C 


4CE1EF 


2854 




JMP 


JEFEl 


J initialize Rd~zJz output 






2855 


» 






F26F 


A6B9 


2856 


BF26F 


LDX 


ZB9 


;lf secondary address 


F271 


2060 


2857 




CPX 


$60 


; Indicates an input file 


F273 


FOEA 


2858 




BEQ 


BF25F 


;Not Output File Error 


F275 


859A 




BF275 


STA 


Z9A 


Xstore output device 


F277 


18 


2860 




CLC 




; clear error indication 


F278 


60 


2861 
2862 




RTS 










2863 


;set serial bus output device 






2864 










F279 


AA 


2865 


BF279 


TAX 






£ iC / A 




^OOO 




JSR 


SEDOC 


;send LISTEN on serial bus 


F27D 


A5B9 


^00/ 




LDA 


ZB9 


;lf secondary address specified, 


F27F 


1005 


2868 




BPL 


BF286 


;send it 


F281 


20BEED 


2869 




JSR 


SEDBE 


;else send dummy secondary address 


F284 


D003 


2870 




BNE 


BF289 


;sklp next instruction 


F286 


20B9ED 


2871 


BF286 


JSR 


SEDB9 


;send secondary addr after LISTEN 


F289 


8A 


2872 


BF289 


TXA 




F28A 


2490 


2873 




BIT 


Z90 


; check ST 


F28C 


10E7 


2874 




BPL 


BF275 


;and set output device if no errors 


F28E 


4C07F7 


2875 




JMP 


JF707 


;else indicate Device Not Present Error 
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2877 


; CLOSE a 


file 






2878 






F291 


2014F3 


2879 


WF291 JSR 


SF314 


F294 


F002 


2880 


BEQ BF298 


F296 


18 


2881 


CLC 






60 


2882 
2883 


RTS 

; 




F298 


ZU1FF3 


2884 


BF298 JSR 


SF31F 


F29B 


8A 


2885 


TXA 




F29C 


48 


2886 


PHA 




F29D 


A5BA 


2887 


LDA 


ZBA 


F29F 


F050 


2888 


BEQ 


BF2F1 


F2A1 


C903 


2889 


CMP 


$03 


F2A3 


F04C 


2890 


BEQ 


BF2F1 


F2A5 


B047 


2891 


BCS 


BF2EE 


F2A7 


C902 


2892 


CMP 


$02 


F2A9 


DO ID 


2893 


BNE 


BF2C8 


F2AB 


68 


2894 


PLA 




F2AC 


20F2F2 


2895 


JSR 


SF2F2 


F2AF 


ZUo jF4 


2896 


JSR 


SF483 


F2B2 


2027FE 


2897 


JSR 


SFE27 


F2B5 


A5F8 


2898 


LDA 


ZF8 


T70D7 

r i.Qi 


FOOl 


2899 


BEQ BF2BA 


F2B9 




2900 


INY 




F2BA 


A5FA 




BF2BA LDA 


ZFA 


F2BC 


FOOl 


2902 


BEQ 


BF2BF 


F2BE 


C8 


2903 


INY 




F2BF 


A900 


2904 


BF2BF LDA $00 


F2C1 


85F8 


2905 


STA 


ZF8 


F2C3 


85FA 


2906 


STA 


ZFA 


F2C5 


4C7DF4 


2907 


JMP 


JF47D 



; check A against logical file table 
; continue if found 
;else exit 



;set logical file, device and sec. adr 

;save file index 

;if current device is keyboard 



;or screen, skip to end 

;if serial bus device (> 3), handle 

;if RS-232 device, 

; restore file index 

; re-organize file tables 

; re-initialize CIA2 

;read top of memory into XY 

;if high byte of RS-232 receive buffer 

;base address is not 0, 

;add 1 to high byte of top of memory 

;if high byte of RS-232 transmit buffer 

;base address is not 

;add 1 to high byte of top of memory 

; clear high byte of RS-232 

; receive and transmit buffer 

;base addresses 

;set new top of memory from XY 
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2909 


; close caf 


>sette device 






2910 


• 






F2C8 


A5B9 


2911 


BF2C8 LDA 


ZB9 


;if secondary address 


F2CA 


290F 


2912 


AND 


$0F 


; indicates an input file. 


F2CC 


F023 


2913 


BEQ 


BF2F1 


;skip following 


F2CE 


20D0F7 


2914 


JSR 


SF7D0 


;else get tape buffer pointer in XY 


F2D1 


A900 


2915 


LDA 


$00 




F2D3 


38 


2916 


SEC 






F2D4 


20DDF1 


2917 


JSR 


SFIDD 


;close file with a $00 


F2D7 


2064F8 


2918 


JSR 


SF864 


;write last block to cassette 


F2DA 


9004 


2919 


BCC 


BF2E0 




F2DC 


68 


2920 


PLA 




;and return with C set upon error 


F2DD 


A900 


2921 


LDA 


$00 




F2DF 


60 


2922 
2923 


RTS 






F2E0 


A5B9 


2924 


BF2E0 LDA 


ZB9 


;lf secondary address Indicates that 


F2E2 


C952 


2925 


CMP 


$62 


;EOT marker to be written, 


F2E4 


DOOB 


2926 


BNE 


BF2F1 




F2E6 


A905 


2927 


LDA 


$05 




F2E8 


206 AF7 


2928 


JSR 


SF76A 


;write special block to tape with EOT 


F2EB 


4CF1F2 


2929 
2930 


JMP 


BF2F1 


;then re-organize file tables 






2931 


; close serial bus 


device 






2932 








F2EE 


2042F6 


2933 


BF2EE JSR 


SF642 


; close serial bus device 


r2Fl 


68 


2934 
2935 


BF2F1 PLA 




; restore file index 






2936 


;re-organlze file 


tables 






2937 








F2F2 


AA 


2938 


SF2F2 TAX 






F2F3 


C698 


2939 


DEC 


Z98 


;decrement # files open 


F2F5 


E498 


2940 


CPX 


Z98 


F2F7 


F014 


2941 


BEQ 


BF30D 


;exit if all files closed 


F2F9 


A498 


2942 


LDY 


Z98 




F2FB 


B95902 


2943 


LDA 


X0259,Y 


;else move parameters of last entry 


F2FE 


9D5902 


2944 


STA 


X0259,X 


;(file, device and secondary address) 


F301 


B96302 


2945 


LDA 


X0263,Y 


;to slot of file being closed 


F304 


9D6302 


2946 


STA 


X0253,X 


;thls removes file being closed 


F307 


B96D02 


2947 


LDA 


X026D,Y 




F30A 


9D6D02 


2948 


STA 


X026D,X 




F30D 


18 


2949 


BF30D CLC 






F30E 


50 


2950 


RTS 
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2952 ; check X against logical file table 







2953 








F30F 


A900 


2954 


SF30F LDA $00 


; clear status word ST 




F311 


8590 


2955 


STA Z90 




F313 


8A 


2956 


TXA 




search 






2957 


SF314 LDX Z98 


;use # of files open to begin 


F316 


CA 






;exit if file not found 




n 1 7 

r J 1 / 


3015 


2959 


BMI BF32E 




F319 






TMP lt02S9 X 


jrepeat if not matched 




F31C 


DOFS 


Z7OI 






F31E 


60 


2962 
2963 
2964 
2965 


RTS 

;set file parameters 


1 depending on X 




F31F 


BD5902 


2966 


SF31F LDA X0259,X 






F322 


85B8 


2967 


STA ZB8 


;set current logical file 




F324 




2968 


LDA X0263,X 






F327 


85BA 


2969 


STA ZBA 


;set current device 




F329 




2970 


LDA X026D,X 






F32C 


85B9 


2971 


STA ZB9 


;set current secondary address 


3 


F32E 


60 


2972 
cy 1 J 
2974 
2975 


BF32E RTS 
> 

; close all files 








A7UU 


9Q7fi 
/D 


WF32F LDA $00 






F331 


8598 


2977 
2978 


STA Z98 


; clear number of files open 








2979 


; restore I/O to default devices 








2980 








F333 


A203 


2981 


WF333 LDX $03 






F335 


E49A 


2982 


CPX Z9A 


;lf output device is not; the ! 


serial bus 


F337 


B003 


2983 


BCS BF33C 






F339 


20FEED 


2984 


JSR SEDFE 


;send UNLISTEN on serial bus 




F33C 


E499 


2985 


BF33C CPX Z99 


;if input device is not on serial bus, 


F33E 


B003 


2986 


BCS BF343 






F340 


20EFED 


2987 


JSR SEDEF 


;send TALK on serial bus 




F343 


869A 


2988 


BF343 SIX Z9A 


;set output device to screen 




F345 


A900 


2989 


LDA $00 






F347 


8599 


2990 


STA Z99 


;set input device to keyboard 




F349 


60 


2991 


RTS 
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2993 


;0PEN 


a file 






2994 


; 






F34A 


A6B8 


2995 


WF34A 


LDX 


ZB8 


F34C 


D003 


2996 




BNE 


BF351 


F34E 


4COAF7 


2997 




JMP 


JF70A 






2998 


; 






F351 


200FF3 


2999 


BF351 


JSR 


SF30F 


F354 


D003 


3000 




BNE 


BF359 


F356 


4CFEF6 


3001 




JMP 


JF6FE 






3002 


; 






F359 


A698 


3003 


BF359 


LDX 


Z98 


F35B 


EOOA 


3004 




CPX 


$0A 


F35D 


9003 


3005 




BCC 


BF362 


F35F 


4CFBF6 


3006 




JMP 


JF6FB 






3007 


; 






F362 


E698 


3008 


BF362 


INC 


Z98 


F364 


A5B8 


3009 




LDA 


ZB8 


F366 


9D5902 


3010 




STA 


X0259,X 


F369 


A5B9 


3011 




LDA 


ZB9 


F36B 


0960 


3012 




ORA 


$60 


F36D 


85B9 


3013 




STA 


ZB9 


F36F 


9D6D02 


3014 




STA 


X026D,X 


F372 


A5BA 


3015 




LDA 


ZBA 


F374 


9D6302 


3016 




STA 


X0253,X 


F377 


F05A 


3017 




BEQ 


BF3D3 


F379 


C903 


3018 




CMP 


$03 


F37B 


F056 


3019 




BEQ 


BF3D3 


F37D 


9005 


3020 




BCC 


BF384 


F37F 


20D5F3 


3021 




JSR 


SF3D5 


F382 


904F 


3022 




BCC 


BF3D3 


F384 


C902 


3023 


BF384 


CMP 


$02 


F386 


D003 


3024 




BNE 


BF38B 


F388 


4C09F4 


3025 




JMP 


JF409 






3026 


; 










3027 


;open 


for 


cassette 






3028 


; 






F38B 


20D0F7 


3029 


BF38B 


JSR 


SF7D0 


F38E 


B003 


3030 




BCS 


BF393 


F390 


4C13F7 


3031 




JMP 


JF713 






3032 


; 






F393 


A5B9 


3033 


BF393 


LDA 


ZB9 


F395 


290F 


3034 




AND 


$0F 


F397 


DOIF 


3035 




BNE 


BF3B8 


F399 


2017F8 


3036 




JSR 


SF817 


F39C 


B036 


3037 




BCS 


BF3D4 


F39K 


20AFF5 


3038 




JSR 


SF5AF 


F3A1 


A5B7 


3039 




LDA 


ZB7 


F3A3 


FOOA 


3040 




BEQ 


BF3AF 


F3A5 


20EAF7 


3041 




JSR 


SF7EA 


F3A8 


9018 


3042 




BCC 


BF3C2 


F3AA F028 


3043 




BEQ 


BF3D4 


F3AC 


4C04F7 


3044 


BF3AC 


JMP 


JF704 






3045 








F3AF 


202CF7 


3046 


BF3AF 


JSR 


SF72C 


F3B2 


F020 


3047 




BEQ 


Br3D4 


F3B4 


900C 


3048 




BCC 


BF3C2 


F3B6 


B0F4 


3049 




BCS 


BF3AC 



;lf current logical file is 

; indicate Not Input File Error 

; check X against logical file table 
;if found, 
;File Open Error 

;lf il files open is 10 or more, 



;Too Many Files Error 

;add 1 to It files open 

;add current logical file 

;to end of table of logical files open 

;add secondary address 

;plus offset 

;to create current secondary address. 

;and enter into secondary address table 

;add current device 

; to current device table 

;and exit if device is keyboard 

;or screen 

;for serial device {> 3), perform open 
;JMP 



;for RS-232 device, perform open 



;get tape buffer address in XY 

;if address too low, 

; indicate Illegal Device # 

;get current secondary address 
;mask low order 4 bits 
;skip if open for output 
;handle msgs for cassette read 
;exit upon error 
; handle messages for load 
;get t characters in file name 

;if name present, search tape for file 

;if not matched 

;and not end of tape, 

;File Not Found Error 

; since no name, get next tape data 

;exit if end of tape 

;if no errors, continue 

;else Indicate File Not Found Error 



device 
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F3B8 
F3BB 
F3BD 
F3BF 
F3C2 
F3C4 
F3C6 
F3C8 
F3CA 
F3CC 
F3CE 
F3D0 
F3D1 
F3D3 
F3D4 



2038F8 

B017 

A904 

206AF7 

A9BF 

A4B9 

C060 

F007 

AOOO 

A902 

91B2 

98 

85A6 

18 

60 



3051 ;open cassette for output 

3052 ; 

3053 Br3B3 JSR SF838 

3054 BCS BF3D4 

3055 LDA $04 

3056 JSR SF76A 

3057 BF3C2 LDA $BF 



;handle msgs for cassette write 
;exit upon error 



3058 
3059 
3060 
3051 
3062 
3063 
3064 



LDY ZB9 
CPY $60 
BEQ BF3D1 
LDY $00 
LDA $02 
STA (ZB2),Y 
TYA 



;write block with Data Header code 
; initialize buffer index 
; check secondary address 
;if tape opened for output 



3065 BF3D1 STA ZA6 

3066 BF3D3 CLC 

3067 BF3D4 RTS 



;put code for Data Block 
;into first byte of buffer 

; initialize tape buffer pointer 







3068 












3069 


;open 


for serial bus 


devices (device ^ 3) 






3070 






;if current secondary address invalid, 


F3D5 


A5B9 


3071 


SF3D5 


LDA ZB9 


r jUi 


30FA 


3072 




BMI BF3D3 


; exit 


F3D9 


A4B7 


3073 




LDY ZB7 


;if name not present, 


F3DB 


F0F6 


3074 




BEQ BF3D3 


;exit 


F3DD 


A900 


3075 




LDA $00 




F3DF 


8590 


3076 




STA Z90 


;else clear ST 


F3E1 


A5BA 


3077 




LDA ZBA 


;set current device 


F3E3 


200CED 


3078 




JSR SEDOC 


;send UNLISTEN on serial bus 


F3E6 


A5B9 


3079 




LDA ZB9 


;send current secondary address 


F3E8 


09F0 


3080 




ORA $F0 


;plus offset 


F3EA 


20B9ED 


3081 




JSR SEDB9 


;on serial bus 


F3ED 


A590 


3082 




LDA Z90 


; check ST 


F3EF 


1005 


3083 




BPL BF3F6 


;if Device Not Present, 


F3F1 


68 


3084 




PLA 


; delete own return address 


F3F2 


68 


3085 




PLA 




F3F3 


4C07F7 


3086 
3087 




JMP JF707 


; indicate Device Not Present 


F3F6 


A5B7 


3088 


Br3F6 


LDA ZB7 


;if file name present 


F3F8 


FOOC 


3089 




BEQ BF406 




F3FA 


AOOO 


3090 




LDY $00 


; initialize index 


F3FC 


BIBB 


3091 BF3FC LDA (ZBB),Y 




F3FE 


20DDED 


3092 




JSR JEDDD 


;send file name on serial bus 


F401 


C8 


3093 




INY 




F402 


C4B7 


3094 




CPY ZB7 


;repeat for all characters of file name 


F404 


D0F6 


3095 




BNE BF3FC 


F406 


4C54F6 


3096 


BF406 


JMP JF654 


;send UNLISTEN on serial bus and exit 
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3098 ;OPEN RS-232 device 

3099 ; 

F409 2083F4 3100 JF409 JSR SF483 ;initialize CIA2 

F40C 8C9702 3101 STY X0297 ;clear RS-232 Status Register 

F40F C4B7 3102 BF40F CPY ZB7 . ;lf pseudo file name present, 
F411 FOOA 3103 BEQ BF41D 

F413 BIBB 3104 LDA (ZBB),Y ;set Control & Command registers 

F415 999302 3105 STA X0293,Y ;and possible non-standard baud rate 

F418 C8 3106 INY 
F419 C004 3107 CPY $04 

F41B D0F2 3108 BNE BF40F 

F41D 204AEF 3109 BF41D JSR SEF4A ; fetch word length and move to 

F420 8E9802 3110 STX X0298 jnumber of bits to send 

F423 AD9302 3111 LDA X0293 ;check RS-232 Control Register 

F426 290F 3112 AND $0F 

F428 FOIC 3113 BEQ BF445 ;lf standard baud rate specified, 

F42A OA 3114 ASL A ;calculate Index into table 

F42B AA 3115 TAX 

F42C ADA602 3116 LDA X02A6 ;lf US machine 

F42F D009 3117 BNE BF43A 

F431 BCCIFE 3118 LDY TFEC2-1,X ;use US table of baud rate 

F434 BDCOFE 3119 LDA TFEC2-2,X 

F437 4C40F4 3120 JMP JF440 ;go set baud rate 

3121 ; 

F43A BCEBE4 3122 BF43A LDY TE4EC-1,X ;use Intl table of baud rate factors 

F43D BDEAE4 3123 LDA TE4EC-2,X ;to fetch baud rate factor 

F440 8C9602 3124 JF440 STY X0296 ;set baud rate factor 

F443 8D9502 3125 STA X0295 ;low byte also 

F445 AD9502 3126 BF446 LDA X0295 

F449 OA 3127 ASL A 

F44A 202EFF 3128 JSR SFF2E ; continue to compute baud rate 

F44D AD9402 3129 LDA X0294 ;check RS-232 Command Register 

F450 4A 3130 LSR A ;for 3-llne or X-llne mode 

F451 9009 3131 BCC BF45C ;and skip If In 3-llne mode 

F453 ADOIDD 3132 LDA XDDOl 

F456 OA 3133 ASL A 

F457 B003 3134 BCS BF45C ; continue If DSR present, else 

F459 200DF0 3135 JSR BFOOD ;DSR Signal Missing Error 

3136 ; 

F45C AD9B02 3137 BF45C LDA X029B ;move RS-232 receive buffer input ptr 

F45F 8D9C02 3138 STA X029C ;to RS-232 receive buffer output ptr 

F462 AD9E02 3139 LDA X029E ;move RS-232 transmit buffer Input ptr 

F465 8D9D02 3140 STA X029D ;to RS-232 transmit buffer output ptr 

F468 2027FE 3141 JSR SFE27 jfetch top of memory In XY 

F46B A5F8 3142 LDA ZF8 ;lf high byte of RS-232 receive buffer 

F45D D005 3143 BNE BF474 ;base address not initialized yet, 

F46F 88 3144 DEY ; subtract 1 from top of memory address 

F470 84F8 3145 STY ZF8 ;use top of memory address to 

F472 86F7 3146 STX ZF7 ;inltlallze receive buffer base address 

F474 A5FA" 3147 BF474 LDA ZFA ;same operation for transmit buffer 

F475 D005 3148 BNE JF47D ;base address 

r478 88 3149 DEY 

F479 84FA 3150 STY ZFA 

F47B 86F9 3151 STX ZF9 

F47D 38 3152 JF47D SEC 

F47E A9F0 3153 LDA $F0 

F480 4C2DFE 3154 JMP JFE2D ; reset top of memory pointers from XY 
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3156 ; Initialize CIA2 





3157 










F483 A9/F 


3158 




LDA $7F 


• r> 1 Q a r- anu nf>nrH n P TRO' S itl XCR2 


F485 8D0DDD 


3159 




STA 


XDDOD 


F488 A906 


3160 




LDA $06 




F48A 8D03DD 


3161 




STA XDD03 


* PB2 bits 1 and 2 as outputs 


F48D 8D01DD 


3162 




STA XDDOl 


;set DTR and RTS high 


F490 A904 


3163 




LDA $04 




F492 ODOODD 


3164 




ORA 


XDDOO 


;set RS-232 output to high (idle) 


F495 8D00DD 


3165 




STA 


XDDOO 


F498 AOOO 


3166 




LDY 


$00 




F49A 8CA102 


3167 




STY 


X02A1 


; clear ICR2 activity register 




3168 
3169 




RTS 








3 170 


; load 


RAll 


from a device 




3171 










F49E 86C3 


3172 


JF49E 


STX 


ZC3 


; set destination address from XY 


F4A0 84c4 


3173 




STY 


ZC4 




F4A2 6C3003 


3174 
3175 




JMP 


(X0330) 


;load RAM (normally F4A5) 




3176 


; standard 


load RAM 


entry 




3177 


; 








F4A5 8593 


3178 


HF4A5 


STA 


Z93 


; set load/verify switch to load 


F4a7 A900 


3179 




LDA 


$00 




F4A9 3590 


3180 




STA 


Z90 


; clear ST 


F4AB A5EA 


3181 




LDA 


ZBA 


; if current device is the keyboard 


F4AD D003 


3182 




BNE 


BF4B2 




F4AF 4C13F7 


3183 
3184 


BF4AF 


JMP 


JF713 


; indicate Illegal Device if Error 


F4B2 C903 


3185 


BF4B2 


CMP 


$03 


; if current device is the screen 


F4E4 F0F9 


3186 




BEQ 


BF4AF 


; indicate error 


F4e6 907b 


3187 




BCC 


BF533 


; if not serial bus device 


F4e8 A4B7 


3188 




LDY 


ZB7 


; and if no file name. 


F4BA D003 


3 189 




BNE 


BF4BF 




F4BC 4C10F7 


3190 
3 191 




JMP 


JF710 


; indicate File Name Missing Error 


F4EF A6B9 


3192 


BF4BF 


LDX 


ZB9 


;move X to secondary address 


F4C1 20AFF5 


3193 




JSR 


SF5AF 


I handle load messages 


F4C4 A9dO 


3194 




LDA $60 


; set current secondary address 


F4C6 85B9 


3195 




STA 


ZB9 




F4C8 20D5F3 


3196 




JSR 


SF3D5 


; perform open of serial bus device 


F4CB A5BA 


3197 




LDA 


ZBA 


;let A = current device 


F4CD 2009ED 


3198 




JSR 


SED09 


; send TALK on serial bus 


F4D0 A-5E9 


3199 




LDA 


ZB9 


; fetch secondary address 


F4D2 20C7ED 


3200 




JSR 


SEDC7 


;and send on serial bus 


F4D5 2013EE 


3201 




JSR 


JEE13 


; input a byte on serial bus 


F4ijo tijAE 


3202 




STA 


ZAE 


; set I/O end address 


F4DA A590 


3203 




LDA 


Z90 




F4DC 4A 


3204 




LSR 


A 




F4DD 4A 


3205 




LSR 


A 




F4EE B050 


3206 




BCS 


BF530 


;if ST doesn't indicate a timeout 


rHtL\J ZVLjLiIL 


JZU/ 




JSR 


JEE13 


; input a byte on serial bus 


F4E3 85AF 


3208 




STA 


ZAF 


; set high byte of end address 


F4E5 8A 


3209 




TXA 






F4E6 D008 


3210 




BNE 


BF4F0 


;if EOI is not low. 


F4E8 A5C3 


3211 




LDA 


ZC3 


;use destination address 


F4EA 85AE 


3212 




STA 


ZAE 


;as end address 


F4EC A5C4 


3213 




LDA 


ZC4 


; ditto for high byte 


F4EE 85AF 


3214 




STA 


ZAF 




F4F0 20D2F5 


3215 


BF4F0 


JSR 


SF5D2 


; print LOAD or VERIFY 
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F4F3 


A9FD 


3216 


BF4F3 


LDA 


$FD 


F4F5 


2590 


3217 




AHD 


Z90 


F4F7 


8590 


3218 




STA 


Z90 


F4F9 


20E1FF 


3219 




JSR 


SFFEl 


F4FC 


D003 


3220 




BNE 


BF501 


F4FE 


4C33F6 


3221 




JMP 


JF633 






3222 


; 






F501 


2013EE 


3223 


BF501 


JSR 


JEE13 


F504 


AA 


3224 




TAX 




F505 


A590 


3225 




LDA 


Z90 


F507 


4A 


3226 




LSR 


A 


F508 


4A 


3227 




LSR 


A 


F509 


B0E8 


3228 




BCS 


BF4F3 


F50B 


8A 


3229 




TXA 




F50C 


A493 


3230 




LDY 


Z93 


F50E 


FOOC 


3231 




BEQ 


BF51C 


F510 


AOOO 


3232 




LDY 


$00 


F512 


DIAE 


3233 




CMP 


(ZAE) ,Y 


F514 


F008 


3234 




BEQ 


BF51E 


F516 


A910 


3235 




LDA 


$10 


F518 


201CFE 


3236 




JSR 


SFEIC 


F51B 


2C 


3237 




.BY 


$20 


F51C 


91AE 


3238 


BF51C 


STA 


(ZAE) ,Y 


F51E 


E6AE 


3239 


BF51E 


INC 


ZAE 


F520 


D002 


3240 




BNE 


BF524 


F522 


E6AF 


3241 




INC 


ZAF 


F524 


2490 


3242 


BF524 


BIT 


Z90 


F526 


50CB 


3243 




BVC 


BF4F3 


F528 


20EFED 


3244 




JSR 


SEDEF 


F52B 


2042F6 


3245 




JSR 


SF642 


F52E 


9079 


3246 




BCC 


BF5A9 


F530 


4C04F7 


3247 


BF530 


JMP 


JF704 






3248 


; 






F533 


4A 


3249 


BF533 


LSR 


A 


F534 


B003 


3250 




BCS 


BF539 


F536 


4C13F7 


3251 




JMP 


JF713 






3252 


i 






F539 


20D0F7 


3253 


BF539 


JSR 


SF7D0 


F53C 


B003 


3254 




BCS 


BF541 


F53E 


4C13F7 


3255 




JMP 


JF713 






3256 


; 






F541 


2017F8 


3257 


BF541 


JSR 


SF817 


F544 


B068 


3258 




BCS 


BF5AE 


F546 


20AFF5 


3259 




JSR 


SF5AF 


F549 


A5B7 


3260 


BF549 


LDA 


ZB7 


F54B 


F009 


3261 




BEQ 


BF556 


F54D 


20EAF7 


3262 




JSR 


SF7EA 


F550 


900B 


3263 




BCC 


BF55D 


F552 


F05A 


3264 




BEQ 


BF5AE 


F554 


BODA 


3265 




BCS 


BF530 


F556 


202CF7 


3266 


BF556 


JSR 


SF72C 


F559 


F053 


3267 




BEQ 


BF5AE 


F55B 


B0D3 


3268 




BCS 


BF530 


F55D 


A590 


3269 


Br55D 


lDa 


Z90 


F55F 


2910 


3270 




AND 


$10 


F561 


38 


3271 




SEC 




F562 


D04A 


3272 




BNE 


BF5AE 


F564 


EOOl 


3273 




CPX 


$01 


F566 


FOll 


3274 




BEQ 


BF579 


F568 


E003 


3275 




CPX 


$03 



;clear timeout (read) bit 
;in ST 

; check for Stop key 
;if depressed 
; abort load 

; input a byte on serial bus 
;if Timeout (read) set In ST 



; abort load 

;if in verify mode 



; compare byte read to memory 



;and set verify error upon mismatch 
;skip next instruction 
;load byte to memory 
;bump load address 

;if not end of file, 
; repeat 

;else sent TALK on serial bus 
; close serial bus 
;and exit 

; indicate File Not Found Error 

;lf input device is not 1 (cassette) 

; Indicate Illegal Device # 

; fetch tape buffer pointer 

;if invalid, indicate Illegal Device # 

;display msgs and test buttons for read 

;handle load messages 
;lf file name present 

; search tape for file name 
;if no errors, continue 
;exit if end of tape 
; error if not found 

;since no file name, get, next tape hdr 

;exit if end of tape found 

; indicate File Not Found Error 

; check ST for unrecoverable read error 



;and exit if so 

;if not Program Header 
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F56A DODD 


3276 




BNE BF549 


F55C AOOl 


3277 1 


BF56C LDY $01 


F55E B1B2 


3278 




LDA (ZB2),Y 


F570 85C3 


3279 




STA ZC3 


F572 C8 


3280 




INY 


F573 B1B2 


3281 




LDA (ZB2) ,Y 


F575 85C4 


3282 




STA ZC4 


F577 B004 


3283 




BCS BF57D 


F579 A5B9 


3284 


BF579 


LDA ZB9 


F57B DOEF 


3285 




BNE BF56C 


F57D A003 


3286 


BF57D 


LDY $03 


F57F B1B2 


3287 




LDA ( ZB2) ,Y 


F581 AOOl 


3288 




T T>Y SOI 


F583 F1B2 


3289 






F585 AA 


3290 




TAX 


FSRfi A004 


3291 




LiU I 9UH 


PSfift R1R2 


3292 




TTlA ( IXt.l'S Y 




3293 




LAjX 


r jOKj r LD£- 


3294 




CUP f 7R5 ^ V 


ir*\fti? Aft 


3295 




TA V 


r jor M.O 


3296 




CLC 


F590 8A 


3297 




TXA 




3298 




Anr 7r'^ 




3299 




CTA 7AP' 


F595 98 


3300 




TYA 


F596 65C4 


3301 




ADC ZC4 


F598 85AF 


3302 




STA ZAF 


F59A A5C3 


3303 




LDA ZC3 


F59C 85C1 


3304 




STA ZCl 


F59E A5C4 


3305 




LDA ZC4 


F5A0 85C2 


3306 




STA ZC2 


F5A2 20D2F5 


i 3307 




JSR SF5D2 


F5A5 204AF8 


1 3308 




JSR SF84A 


F5A8 24 


3309 




.BY $24 


F5A9 18 


3310 


BF5A9 CLC 


F5AA A6AE 


3311 




LDX ZAE 


F5AC A4AF 


3312 




LDY ZAF 


F5AE 60 


3313 


BF5AE RTS 



; reset load address from tape buffer 
;high byte also 

; index low byte of end address 
;compute length of block to load 



;and set end address of I/O area 



;set tape load address 



; display load messages 

;load from cassette 

;skip next Instruction 

; clear error flag 

;exit with end address in XY 
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3315 ;handle messages for a load operation 

3316 ; 



F5AF 


A59D 


3317 


SF5AF 


LDA 


Z9D 




F5B1 


lOlE 


3318 




BPL 


BF5D1 


;exlt If In Run mode 


F5B3 


AOOC 


3319 




LDY 


$0C 




F5B5 


202FF1 


3320 




JSR 


BF12F 


; print SEARCHING 


F5B8 


A5B7 


3321 




LDA 


ZB7 


;if file name is present, 


F5BA 


F015 


3322 




BEQ 


BF5D1 




F5BC 


A017 


3323 




LDY 


$17 




F5BE 


202FF1 


3324 




JSR 


BF12F 


; print FOR 


F5C1 


A4B7 


3325 


JF5C1 


LDY 


ZB7 


;lf file name is present 


F5C3 


FOOC 


3326 




BEQ 


BF5D1 




F5C5 


AOOO 


3327 




LDY 


$00 




F5C7 


BIBB 


3328 


BF5C7 


LDA 


(ZBB),Y 


; print file name 


F5C9 


20D2FF 


3329 




JSR 


SFFD2 




F5CC 


C8 


3330 




INY 






F5CD 


C4B7 


3331 




CPY 


ZB7 




F5CF 


D0F6 


3332 




BNE 


BF5C7 


;repeat for all characteri 


F5D1 


60 


3333 


BF5D1 


RTS 







3334 ; 

3335 ;handle Load/Verify message 

3336 ; 

F5D2 A049 3337 SF5D2 LDY $49 ;assume Load 

F5D4 A593 3338 LDA Z93 

F5D6 F002 3339 BEQ BF5DA 

F5D8 A059 3340 LDY $59 ; change to Verify if flag is non-ze 

F5DA 4C2BF1 3341 BF5DA JMP JF12B ; display message and return 
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3343 


• Save 
* 


RAM 


to a device 






3344 








;set end of I/O area from XY 


F5DD 


86AE 


3345 


JF5DD 


STX 


ZAE 


F5DF 


84 AF 


3346 




STY 


ZAF 


;A = index to start address 


F5E1 


AA 


3347 




TAX 




F5E2 




3348 




LDA 


ZOO X 


•move start address to ZCl/2 


F5E4 


85Cl 


3349 




STA 


ZCl 


r jEiO 


B501 


3350 




LDA 


ZOl.X 




F5E8 


S5C2 


3351 




STA 


ZC2 


* narfnrm ^flvp ^normallv F5ED) 


F5EA 




3352 
3353 




JMP 








3354 


; standard 


save RAM 


entry 














• If ^ni-T*onh Ae^\jir*e> 1q kpvboard ( Ol 


F5ED 


A5BA 


JJJO 


WF5ED 


LDA 


ZBA 


F5EF 




3357 




BNE 


BF5F4 






4C13F7 


3358 
3359 


BF5F1 
• 


JMP 


JF713 


jlnQlcace i.i.i.cgax wevj-^^e t 


F5F4 


C903 


3360 


BF5F4 


CMP 


$03 


J if current device is screen 


F5F6 


F0F9 






BEQ 


BF5F1 




F5F8 


905F 


3362 




BCC 


BF659 


* cH Ti 1 f PflQSPtte 


r jc n 


A961 


3363 




LDA $61 


• UCV XCC UlUOX OCXXOX U^AOf 


F5FC 


JlJ7 


3364 




STA 


ZB9 


• ^ ^ am nnr" aT*w OiAf* aHT* fn fill f ml t 
JSet CenSpOCilX y SI^L,* dux \.\J ^/uupuw 


F5FE 




3365 




LDY 


ZB7 


'if file name is not present 


F600 


D003 


3366 




BNE 


BF605 




F602 


4C10F7 


3367 
3368 


* 


JMP 


JF710 


; indicate File Name Missing 


F605 


20D5F3 


3369 


BF605 


JSR 


SF3D5 


; perform open for serial bus device 


r OUO 


zuof r D 


3370 




JSR 


SF68F 


J print Saving + file name 


F60B 


A5BA 


3371 




LDA 


ZBA 


;get current device 


F60D 


200CED 


3372 




JSR 


SEDOC 


•and send LISTEN on serial bus 


F610 


A5B9 


3373 




LDA 


ZB9 


jsend secondary address 


F612 


20B9ED 


3374 




JSR SEDB9 


J on serial bus 


F615 


AO 00 


3375 




LDY 


$00 


•move ptr to I/O area into ZAC/D 


F617 




3376 




JSR 


SFB8E 


F61A 


A5AC 


3377 




LDA 


ZAC 


trranA 1 ni.i nf QfaT*!" aHHl*PQ!3 nfl Serial 
f SentX XOW UX at<lXX LCSO OELxa^ 


F61C 


Z. \^ L/I^JL/ 


3378 




JSR 


JEDDD 


r Dir 


A5AD 


3379 




LDA 


ZAD 




irA9 1 
r DZ i 


^yJUUtUU 


3380 




JSR 


JEDDD 


• t-Vian hloh bwfA 
f LElcll lixgit ujruc 


F624 


20D1FC 


3381 


BF624 


JSR 


SFCDl 


Jll QXUCIt X» IIU I. XXllXOllCU 






3382 




BCS 


BF53F 




F629 


BIAC 


3383 




LDA (ZAO.Y 


J fetch next byte 


F62B 


ZuuusLu 






JSR 


JEDDD 


land send on serial bus 




ZUtli 1 r r 


3385 




JSR 


SFFEl 


jcnecK ror Dcop iwsy 


F631 


D007 


3386 




BNE 


BF63A 




F633 


2042F6 


3387 


JF633 


JSR 


SF542 


;and close serial bus if depressed 


F636 


A900 


3388 




LDA $00 




F638 


38 


3389 




SEC 






F639 


60 


3390 
3391 




RTS 






F63A 


20DBFC 


3392 


BF63A JSR 


SFCDB 


; increment address 


F63D DOES 


3393 




BNE 


BF524 


;and repeat 


F63F 


20FEED 


3394 


BF63F 


JSR 


SEDFE 


;send UNLISTEN on the serial bus 
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3396 


; close 


i serial bus 


device 






3397 


> 








F642 


24B9 


3398 


SF642 


BIT 


ZB9 


;if secondary address valid, 


F644 


3011 


3399 




BMI 


BF657 




F646 


A5BA 


3400 




LDA 


ZBA 


;get current device 


F648 


200CED 


3401 




JSR 


SEDOC 


;and send LISTEN on serial bus 


F64B 


A5B9 


3402 




LDA 


ZB9 


; fetch secondary address 


F64D 


29EF 


3403 




AND 


$EF 


; strip bit 4 


F64F 


09E0 


3404 




ORA 


$E0 


; force bits 7-5 


F651 


20B9ED 


3405 




JSR 


SEDB9 


;send secondary addr after LISTEN 


F654 


20FEED 


3406 


JF654 


JSR 


SEDFE 


;send UNLISTEN on serial bus 


F657 


18 


3407 


BF657 


CLC 






F658 


60 


3408 
3409 




RTS 






F659 


4A 


3410 


BF659 


LSR 


A 


;if device is not cassette 


F65A 


B003 


3411 




BCS 


BF65F 




F65C 


4C13F7 


3412 
3413 


> 


JMF 


JF713 


; Indicate Illegal Device # 






3414 


; save 


RAM 


to cassi 








3415 


; 








F65F 


20D0F7 


3416 


BF55F 


JSR 


SF7D0 


;set tape buffer pointer in XY 


F662 


908D 


3417 




BCC 


BF5F1 


;exit if address invalid 


F664 


2038F8 


3418 




JSR 


SF838 


jprint msgs for cassette and test sense 


F667 


B025 


3419 




BCS 


BF68E 




F669 


208FF6 


3420 




JSR 


SF68F 


; print message Saving + file name 


F66C 


A203 


3421 




LDX 


$03 




F56E 


A5B9 


3422 




LDA 


ZB9 




F670 


2901 


3423 




AND 


$01 


;if secondary address is even. 


F672 


D002 


3424 




BNE 


BF676 




F674 


A201 


3425 




LDX 


$01 


;set secondary address to 1 


F676 


8A 


3426 


BF676 


TXA 






F677 


206AF7 


3427 




JSR 


SF76A 


;write Program Header block to cassette 


F67A 


B012 


3428 




BCS 


BF68E 


;exit upon error 


F67C 


2067F8 


3429 




JSR 


SF867 


;write block to cassette 


F67F 


BOOD 


3430 




BCS 


BF68E 


; again, exit upon error 


F681 


A5B9 


3431 




LDA 


ZB9 


;if write End-Of-Tape Mark specified. 


F683 


2902 


3432 




AND 


$02 




F685 


F006 


3433 




BEQ 


BF68D 




F687 


A905 


3434 




LDA 


$05 


;then write special block 


F689 


206AF7 


3435 




JSR 


SF76A 




F68C 


24 


3436 




.BY 


$24 


;skip next instruction 


F68D 


18 


3437 


BF68D 


CLC 




; indicate no errors 


F68E 


60 


3438 
3439 


BF68E 


RTS 










3440 


;handle message Saving plus file name 






3441 










F68F 


A59D 


3442 


SF68F 


LDA 


Z9D 




F691 


lOFB 


3443 




BPL 


BF68E 


;return if not in Direct mode 


F693 


A051 


3444 




LDY 


$51 


; point to message SAVING 


F695 


202FF1 


3445 




JSR 


BF12F 


; print message 


F698 


4CC1F5 


3446 




JMP 


JF5C1 


;then print file name 
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F69B 
r69D 
F69F 
F6A1 
F6A3 
F6A5 
F6A7 
F6A8 
F6AA 
F6AC 
F6AE 
F6B0 
F6B2 
F6B4 
F6B6 
F6B8 
F6BA 
F6BC 
F6BF 
F6C2 
F6C4 
F6C5 
F6C7 
F5C9 
F6CC 
F6CF 
F6D2 
F6D4 
F6D7 
F6D8 
F6DA 
F6DC 



A200 
E6A2 
D006 
E6A1 
D002 
E6A0 
38 

A5A2 
E901 
A5A1 
E91A 
A5A0 
E94F 
9006 
86AO 
86A1 
86A2 
ADOIDC 
CDOIDC 
D0F8 
AA 
3013 
A2BD 
8E00DC 
AEOIDC 
ECOIDC 
D0F8 
8D00DC 
E8 

D002 
8591 
60 



3448 ; Increment real time clock 

3449 ; 

3450 JF69B LDX $00 

3451 INC ZA2 

3452 BNE BF6A7 

3453 INC ZAl 

3454 BNE BF6A7 

3455 INC ZAO 

3456 BF6A7 SEC 



3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 



LDA ,ZA2 
SBC $01 
LDA ZAl 
SBC $1A 
LDA ZAO 
SBC $4F 
BCC BF6BC 
STX ZAO 
STX ZAl 
STX ZA2 



;bump low byte 

;then middle byte upon overflow 
;then high byte upon overflow 
: check for full 24 hours 



;yes, clear clock 



F6DD 78 
F6DE A5A2 
F6E0 A6A1 
F6E2 A4A0 



F6E5 85A2 
F6E7 86A1 
F6E9 84A0 
F6EB 58 
F6EC 60 



3457 BF6BC LDA XDCOl 

3468 CMP XDCOl 

3469 BNE BF6BC 

3470 TAX 

3471 BMI BF6DA 

3472 LDX $BD 

3473 STX XDCOO 

3474 BF6CC LDX XDCOl 

3475 CPX XDCOl 

3476 BNE BF6CC 

3477 STA XDCOO 

3478 INX 

3479 BNE BF6DC 

3480 BF6DA STA Z91 

3481 BF6DC RTS 

3482 ; 

3483 ;read real time clock 

3484 ; 

3485 JF6DD SEI 

3486 LDA ZA2 

3487 LDX ZAl 

3488 LDY ZAO 

3489 ; 

3490 ;set real time clock 

3491 ; 

3492 JF6E4 SEI 

3493 STA ZA2 

3494 STX ZAl 
349^ STY ZAO 

3496 CLI 

3497 RTS 



;read current keyboard scan line 
;walt until steady 

; select Stop key row 
;read column 
;wait until steady 

;save scan result 



;kill IRQ to avoid interference 
;read low byte into A 
;read middle byte into X 
;and high byte into Y 



; disable IRQ to avoid interference 
;set low byte from A 
;set middle byte from X 
;and set high byte from Y 
; enable IRQ's 
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3499 


, test 


STOP key 






3500 


> 






F6ED 


AJ3 1 


3501 


Wf DCiLf 


LDA 


Z91 


F6EF 


C97F 






CMP $7F 


F6F1 


D007 


3503 




BNE 


BF6FA 


F6F3 


08 


3504 




PHP 




F6F4 








JSR 


SFFCC 


F6F7 


85C6 


3506 




STA 


ZC6 


F6F9 


28 


3507 




PLP 




F6FA 


DU 




BF6FA RTS 








J juy 


> 










3510 


;handle I/O err< 






351 1 








FoFB 


A901 


3512 


JF6FB 


LDA 


$01 


F6FD 


2C 


3513 




.BY 


$2C 


F6FE 


A902 


3514 


JF6FE 


LDA 


$02 


F700 


2C 


3515 




.BY 


$2C 


F701 


A903 


3516 


JF701 


LDA 


$03 


F703 


2C 


3517 




.BY 


$2C 


F704 


A904 


3518 


JF704 


LDA 


$04 


vine 


2C 


3519 




.BY 


$20 


F707 


A905 


3520 


JF707 


LDA 


$05 


r / 


On 


"X^O 1 
jDZ 1 




.BY 


$2C 


F70A 


A906 


3522 


JF70A 


LDA 


$06 


F70C 


2C 


3523 




.BY 


$2C 


F70D 


A907 


3524 


JF70D 


LDA 


$07 


F70F 


2C 


3525 




.BY 


$2C 


F710 


A908 


3526 


JF710 


LDA 


$08 


F712 




J / 




.BY 


$2C 


1771 


AQHQ 




JF713 


LDA 


$09 


r / i J 


A Q 
'to 






PHA 




ttti a 
r / iO 




J? jU 




JSR 


SFFCC 


F719 








LDY 


$00 


F71B 


24 9D 


3532 




BIT 


Z9D 


177 1 I\ 




J J J J 




BVC 


BF729 


r / Lr 


ZUZf r 1 






JSR 


BF12F 


F722 


68 


3535 




PLA 




F723 


48 


3536 




PHA 




F724 


0930 


3537 




ORA 


$30 


F726 


20D2FF 


3538 




JSR 


SFFD2 


F729 


68 


3539 


BF729 


PLA 




F72A 


38 


3540 




SEC 




F72B 


60 


3541 




RTS 





;if Stop key is depressed 
; save flags on stack 

;close files and set devices to default 
; cancel keyboard queue 
;restore flags 



;Too Many Files 

;File Open 

;File Not Open 

;File Not Found 

; Device Not Present 

;Not Input File 

;Not Output File 

;File Name Missing 

; Illegal Device # 

; save error # on stack 

; close files and set devices to default 



;if bit 5 in Direct/Run flag is set 
;print message I/O Error 



; followed by error # 
; res tore error number 
;set error flag 
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3543 ;get next file 





3544 








F72C A593 


3545 ; 


SF72C 


LDA 


Z93 


F72E 48 


3546 




PHA 




F72F 2041F8 


3547 




JSR 


SF841 


F732 68 


3548 




PLA 




F733 8593 


3549 




STA 


Z93 


F735 B032 


3550 




BCS 


BF769 


F737 AOOO 


3551 




LDY 


$00 


F739 B1B2 


3552 




LDA 


(ZB2),Y 


F73B C905 


3553 




CMP 


$05 


F73D F02A 


3554 




BEQ 


BF769 


F73F C901 


3555 




CUP 


$01 


F741 F008 


3556 




BEQ 


BF74B 


F743 C903 


3557 




CMP 


$03 


F745 F004 


3558 




BEQ 


BF74B 


F747 C904 


3559 




CUP 


$04 


F749 DOEl 


3560 




BNE 


SF72C 


F74B AA 


3561 


BF74B 


TAX 




F74C 249D 


3562 




BIT 


Z9D 


F74E 1017 


3563 




BPL 


BF767 


F750 A063 


3564 




LDY 


$63 


F752 202FF1 


3565 




JSR 


BF12F 


F755 A005 


3565 




LDY 


$05 


F757 B1B2 


3567 


BF757 


LDA 


(ZB2),Y 


F759 20D2FF 


3568 




JSR 


SFFD2 


F75C C8 


3569 




INY 




F75D C015 


3570 




CPY 


$15 


F75F D0F6 


3571 




BNE 


BF757 


F761 A5A1 


3572 


BF761 


LDA 


ZAl 


F763 20E0E4 


3573 




JSR 


SE4E0 


F766 EA 


3574 




NOP 




F767 18 


3575 


BF767 


CLC 




F768 88 


3576 




DEY 




F769 60 


3577 


BF769 


RTS 





r froia cassette 

;save load/verify switch on stack 

;read a block from tape 

; restore load/verify flag 
;exlt if read error 

;get first character in tape buffer 
; If code for End of Tape 
; return 

;lf not code for Program Header 
;or ••?■■ 

;or Data Header, try next block 

;lf in direct mode, 

; point to message FOUND 
;and print it 

; print a file name character 

;and repeat for 
;all 21 characters 

; display file name for max. 8.5 seconds 
; filler for patch 
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3579 ;wrlte a special block to cassette with code from A 

3580 ; 



F76A 


859E 


3581 


SF76A 


STA 


Z9E 


I save code from A 




F76C 


20D0F7 


3582 




JSR 


SF7D0 


• set tape buffer Index in XY 




F76F 


90 5E 


3583 




BCC 


BF7CF 


jexit if address invalid 




F771 


A5C2 


3584 




LDA 


ZC2 


* save 1/ start addrsss on stack 




F773 


48 


3585 




PHA 








F774 


A5C1 


3586 




LDA 


ZCl 






F776 


48 


3587 




PHA 








F777 


A5AF 


3588 




LDA 


ZAF 




t ck 
s ac 


F779 


48 


3589 




PHA 








F77A 


A5AE 


3590 




LDA 


ZAK 






F77C 


48 


3591 




PHA 








F77D 


AOBF 


3592 




LDY 


$BF 






F77F 


A920 


3593 




LDA 


$20 






F781 


91B2 


3594 


BF781 


STA 




;clear cassette buffer with space 


JS 


F783 


88 


3595 




DEY 






F784 


dofb 


3596 






DC / Oi 






F786 


A59E 


3597 




LDA 


Z9E 


;move routine entry code 




F788 


91B2 


3598 




STA 




;into first byte of cassette buffer 


F78A 


C8 


3599 




INY 








F78B 


A5C1 






LDA 


ZCl 


;move pointer to I/O area 




F78D 


91B2 


jOxjL 




STA 


^ZBZ; ,Y 


;+ 1 




F78F 




jOUZ 




ItJY 








■P70A 

r / 3U 








LDA 


ZC2 






F792 


9LB2 


3604 




STA 




■ and + 2 




F794 


C8 


3605 




INY 








F795 


A5AE 


3606 




LDA 


ZAE 


;move pointer to end of I/O area 


into 


F797 


91B2 


3607 




STA 


(ZB2) Y 






F799 


C8 


3608 




INY 








F79A 


A5AF 


3609 




LDA 


ZAF 






F79C 


91B2 


3610 




STA 


(ZB2) ,Y 


;and + 4 




F79E 


C8 


3611 




INY 








F79F 


849F 


3612 




STY 


Z9F 


;save index into tape buffer 




F7A1 


AOOO 


3613 




LDY 


$00 




F7A3 


84 9E 


3614 




STY 


Z9E 


; initialize file name index 




F7A5 


A49E 


3615 


BF7A5 


LDY 


Z9E 






F7A7 


C4B7 


3616 




CPY 


ZB7 


;if not at end of file name 




F7A9 


FOOC 


3617 




BEQ 


BF7B7 






F7AB 


BlBB 


3618 




LDA 




;move file name 




F7AD 


A49F 


3619 




LDY 


Z9F 






F7AF 


91B2 


3620 




STA 


\ i'Od.J y I 


;into tape buffer 




F7B1 


E69E 


3621 




INC 


Z9E 


; increment indexes 




F7B3 


E69F 


3622 




INC 


Z9F 






F7B5 


doee 


3623 




BNE 


BF7A5 


;and repeat 




F7B7 


20D7F7 


3624 


BF7B7 


>JSR 




;set cassette buffer to I/O area 




F7BA 


A969 


3625 




LDA 








F7BC 


85AB 


3626 




STA 


ZAB 


;set 105 sync patterns 




F7BE 


or o 


3627 




JSR 


SF86B 


;write block, to tape 




F7C1 


A8 


3628 




TAY 








F7C2 


68 


3629 




PLA 








F7C3 


85AE 


3630 




STA 


ZAE 


; restore ptr to beginning of I/O 


area 


F7C5 


68 


3631 




PLA 








F7C6 


85AF 


3632 




STA 


ZAF 






F7C8 


68 


3633 




PLA 








F7C9 


85C1 


3634 




STA 


ZCl 


; restore pointer to end of I/O area 


F7CB 


68 


3635 




PLA 








F7CC 


85C2 


3636 




STA 


ZC2 






F7CE 


98 


3637 




TYA 








F7CF 


60 


3638 


BF7CF 


RTS 









F7D0 A6B2 
F7D2 A4B3 
F7D4 C002 
F7D6 60 



F7D7 
F7DA 
F7DB 
F7DD 
F7DE 
F7E0 
F7E2 
F7E3 
F7E5 
F7E7 
F7E9 



20DOF7 
8A 
85C1 
18 

69C0 
85AE 
98 

85C2 
6900 
85AF 
60 



F7EA 
F7ED 
F7EF 
F7F1 
F7F3 
F7F5 
F7F7 
F7F9 
F7FE 
F7FD 
F7FF 
F801 
F803 
F805 
F807 
F809 
F60B 
F80C 



202CF7 

BO ID 

A005 

849 F 

AOOO 

849E 

C4B7 

FOlO 

BIBB 

A49F 

D1B2 

D0E7 

E69E 

E69F 

A49E 

DOEC 

18 

60 



F80D 20D0F7 
F810 E6A6 
F812 A4A6 
F814 COCO 
F816 60 



3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 



set tape buffer pointer In XY 



SF7D0 LDX ZB2 
LDY ZB3 
CPY $02 
RTS 



;move X to low part of tape buffer ptr 

;and Y to high part 

;set C if address invalid 



;set cassette buffer to I/O area 

;set tape buffer address in XY 
:move to I/O start address 



SF7D7 JSR SF7D0 
TXA 

STA ZCl 
CLC 

ADC $C0 
STA ZAE 
TYA 

STA ZC2 
ADC $00 
STA ZAF 
RTS 



;add 192 

;to form low part of end of I/O area 
;move high byte also 



; search tape for a file name 



SF7EA JSR SF72C 
BCS BF80C 
LDY $05 
STY Z9F 
LDY $00 
STY Z9E 

BF7F7 CPY ZB7 

BEQ BF80B 
LDA (ZBB),Y 
LDY Z9F 
Clff (ZB2),Y 
BNE SF7EA 
INC Z9E 
INC Z9F 
LDY Z9E 
BNE BF7F7 

BF80B CLC 

BF80C RTS 



;read next file header from tape 
;exlt upon error 

;set temporary index in tape buffer 

;set temporary index in file name 

;if at end of file name 

; then name found 

;get character from file name 

;and compare to tape buffer 

; if not equal, try next entry from tape 

; else bump pointers 



;and repeat test 
; clear error flag 



add 1 to tape index and test for overflow 



SF80D JSR SF7D0 
INC ZA6 
LDY ZA6 
CPY $C0 
RTS 



;get tape buffer pointer in XY 
; and add 1 

:set C if end of block 
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3690 


;handle messages 


and test cassette buttons for read 






3691 








F817 


202EF8 


3692 


SF817 JSR 


SF82E 


;test sense line 


F81A 


FOIA 


3693 


BEQ BF836 


; if no buttons depressed , 


F81C 


AOIB 


3694 


LDY $1B 


; point to message Press Play on Tape 


F81E 


202FF1 


3695 


BF81E JSR 


BF12F 


J and print isessa^e 


F821 


20D0F8 


3696 


BF821 JSR 


SF8D0 


J test Stop key 


F824 


202EF8 


3697 


JSR 


SF82E 


* t" t* c^nQfi 1 4 no 


F827 


D0F8 


3698 


BNE 


BF821 


\ and repeat i f no but tons deprs ssed 


F829 


A06A 


3699 


LDY $6A 


J point to message OK 


F82B 


4C2FF1 


3700 


JMP 


BF12F 


J and print 






3701 










3702 


;test sense line 








3703 


y 






F82E 


A910 


3704 


SF82E LDA $10 


* Qot" ma clr f ni~ can qc lino 


F830 


2401 


3705 


BIT 


ZOl 


;test 6510 I/O register 


F832 


D002 


3706 


BNE 


BF836 


^exlt with Z clear If nothing depressed 


F834 


2401 


3707 


BIT 


ZOl 


jelse set Z 


F836 


18 


3708 


BF836 CLC 






F837 


60 


3709 
3710 


RTS 

> 










3711 


;set messages and 


test cassette sense line for output 






3712 






F838 


202EF8 


3713 


SF838 JSR 


SF82E 


; test sense switches 


F83B 


F0F9 


3714 


BEQ BF836 


;if no buttons depressed 


F83D 


A02S 


3715 


LDY 


$2E 


;lndex message Press Next & Play... 


F83F 


DODD 


3716 
3717 


BNE 


BF81E 


; print message, test sense and return 






3718 


;read a block from cassette 






3719 








F841 


A900 


3720 


SF841 LDA 


$00 




F843 


8590 


3721 


STA 


Z90 


; clear ST 


F845 


8593 


3722 


STA 


Z93 


;set load/verify switch to load 


F847 


20D7F7 


3723 


JSR 


SF7D7 


;set tape buffer to I/O area 


F84A 


2017F8 


3724 


SF84A JSR 


SF817 


; handle msgs and test sense for read 


F84D 


BOIF 


3725 


BCS 


BF86E 


F84F 


78 


3726 


SEI 




; disable IRQ 


F850 


A900 


3727 


LDA 


$00 


F852 


85AA 


3728 


STA 


ZAA 


;set gap 


F854 


85B4 


3729 


STA 


ZB4 


;set no sync established 


F856 


85B0 


3730 


STA 


ZBO 


;set no special speed correction yet 


F858 


859E 


3731 


STA 


Z9E 


; initialize error log index for pass 1 


F85A 


859F 


3732 


STA 


Z9F 


;and pass 2 


F85C 


859c 


3733 


STA 


Z9C 


;set no byte available yet 


F85E 


A990 


3734 


LDA 


$90 


;set Flag mask 


F860 


A20E 


3735 


LDX 


$0E 


; index for cassette read IRQ address 


F862 


DOU 


3736 


BNE 


BF875 


;JMP 
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F864 20D7r7 
F867 A914 
F869 85AB 
F85B 2038F8 
F86E B06C 
F870 78 
F871 A982 
F873 A208 



F875 A07F 
F877 8C0DDC 
F87A 8D0DDC 
F87D ADOEDC 
F880 0919 
F882 8D0FDC 
F885 2991 
F887 8DA202 
F88A 2OA4F0 
F88D ADUDO 
F890 29EF 
F892 8D11D0 
F895 AD1403 
F898 8D9F02 
F89B AD1503 
F89E 8DA002 
F8A1 20BDFC 
F8A4 A902 
F8A6 85BE 
F8A8 2097FB 
F8AB A501 
F8AD 291F 
F8AF 8501 
F8B1 85C0 
F8B3 A2FF 
F8B5 AOFF 
F8B7 88 
F8B8 DOFD 
F8BA CA 
F8BB D0F8 
F8BD 58 
F8BE ADA002 
F8C1 CD1503 
F8C4 18 
F8C5 F015 
F8C7 20D0F8 
F8CA 20BCF6 
F8CD 4CBEF8 



3738 ;wrlte a block to 

3739 ; 

3740 SF864 JSR SF7D7 

3741 SF867 LDA $14 

3742 STA ZAB 

3743 SF86B JSR SF838 

3744 BF86E BCS BF8DC 

3745 SEI 

3746 LDA $82 

3747 LDX $08 

3748 ; 

3749 ; common code for 

3750 ; 

3751 BF875 LDY $7F 



3752 
3753 
3754 
3755 
3756 
3757 
3758 
3759 
3760 
3761 
3762 
3763 
3764 
3765 
3765 
3767 
3758 
3769 
3770 
3771 
3772 
3773 
3774 
3775 



STY XDCOD 
STA XDCOD 
LDA XDCOE 
ORA $19 
STA XDCOF 
AND $91 
STA X02A2 
JSR SF0A4 
LDA XDOll 
AND $EF 
STA XDOll 
LDA X0314 
STA X029F 
LDA X0315 
STA X02A0 
JSR SFCBD 
LDA $02 
STA ZBE 
JSR SFB97 
LDA ZOl 
AND $1F 
STA ZOl 
STA ZCO 
LDX $FF 



3776 BF8B5 LDY $FF 

3777 BF8B7 DEY 

3778 BNE BF8B7 

3779 DEX 

3780 BNE BF8B5 

3781 CLI 

3782 JF8BE LDA X02A0 

3783 CMP X0315 

3784 CLC 

3785 BEQ BF8DC 
3785 JSR SF8D0 

3787 JSR BF6BC 

3788 JMP JF8BE 



cassette 

; initialize tape buffer pointer 
;20 sync patterns 

;test sense and display msgs for output 



;mask for ICRl to honor TBI 

;IRQ index for cassette write, part 1 

5sette read & write 



; clear any pending masks in ICRl 
;then set mask for TBI 

;+ force load, one shot and TBI to CRAl 
;to form CRBl 

;and CRBl activity register 
;condltion flag bit in ICR2 



; disable the screen 
;save standard IRQ vector 



;set new IRQ for cassette depending on X 
; select phase 2 

; initialize cassette I/O variables 



; start cassette motor 
;set tape motor interlock 



; delay .3 seconds 



;test high byte of IRQ save area 
;to determine if end of I/O 

;exit if so 
;else test Stop key 
;scan keyboard 
jrepeat 
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3790 


handle Stop key 








3791 










F8D0 


20E1FF 


3792 




J SR 


SFFEl 




F8D3 


io 


J / 3 J 




CLC 






F8D4 


DOOB 


J / 




BNE 


BF8E1 




F8D6 


2093FC 


3795 




J DK 




;lf depressed, stop cassette operationi 


fsds 


JO 


3796 




SEC 






F8DA 


68 


3797 




PLA 




;delete own return address 


F8DB 


68 


3798 




PLA 






F8DC 


A900 


3799 


BF8DC 


LDA 


$00 




FBDE 




3800 




STA 


X02A0 


; clear high byte of IRQ save area 


F8E1 


60 


3801 
3802 


BF8E1 


RTS 










3803 


; schedule 


CIAl Timer A depending In parmeter In X 






3804 










f OCiZ 


ODJOl 


3805 


SF8E2 


STX 


ZBl 


; save entry parameter 


F8E4 


A5B0 


JoUO 




LDA 


ZBO 


;get speed correction 


F8E6 


OA 


JoU/ 




ASL 


A 


j * 2 


F8E7 


OA 


3808 




ASL 


A 


; * 4 


F8E8 


IS 


3809 




CLC 






F8e9 


65B0 


Jo iU 




ALC 


ZBO 


;add speed correction 


F8EB 


18 


38 11 




CLC 






F8EC 


65BI 


38 12 




ADC 


ZBl 


; and parameter 


F8EE 


35E1 


38 13 




STA 


ZBl 


; save low order 


F8fO 


A900 


3814 




LDA 


$00 




F8F2 


24B0 


Jo Lj 




BIT 


ZBO 


; if speed correction is positive 


F8F4 


300 1 


3816 




BMI 


BF8F7 




F8F6 




3817 




ROL 


A 


;get high order in A 




06B1 


3818 


BF8f7 


ASL 


ZEl 




F8F9 


2A 


38 19 




ROL 


A 


» ^ 


F8FA 


06B1 


3820 




ASL 


ZBl 




ror (j 


2A 


3821 




ROL 


A 


. * J. 

;* 4 


F8FD 


AA 


3822 




TAX 






F8FE 




3823 


BF8FE 


LDA 


XDC06 


;wait until no chance of 


r ?ui 


C916 


3824 




CtlP 


$16 


;TBL1 changing 


F903 


90F9 


3825 




BCC 


BF8FE 


;while it still must be read 


r 3Uj 




IQ Oft 
Jo ZD 




ADC 


ZBl 


;add low order offset to TBLl 


vQm 
tyyj/ 




JoZ / 




STA 


XDC04 


;and store in TALI 


F90A 


oA 


3828 




TXA 






F90B 


OiJU/DL 


3829 




ADC 


XDC07 


;add high order offset to TBHl 


F90E 


8D05DC 


3030 




STA 


XDC05 


;and store in TAHl 


F911 


ADA202 


3831 




LDA 


X02A2 




F914 




3832 




STA 


XDCOE 


; set CRAl from CRBl activity register 






3833 




STA 


X02A4 


;and save it 


F9 1a 




Jo JH 




LDA 


XDCOD 




F9 Id 


2910 


Jo Jj 




AND 


$10 




f9 If 


F009 


Jo Jo 




BEQ 


BF92A 


; if Flag bit is not set. 


F921 


A9f9 


3837 




LDA 


>BF92A 


;set exit address on stack 


F923 


48 


3838 




PHA 






F924 


A92A 


3839 




LDA 


<BF92A 




F926 


48 


3840 




PHA 






F927 


4C43FF 


3841 




JMP 


JFF43 


;and simulate an IRQ 


F92A 


58 


3842 


EF92A 


CLI 




;else allow IRQ and exit 


F92B 


60 


3843 




RTS 
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3845 ; cassette read IRQ 

3846 ; 

F92C 3847 WF92C = * 

F92C AE07DC 3848 BF92C LDX XDC07 



F92F AOFF 


3849 


LDY $FF 


F931 98 


3850 


TYA 


F932 ED06DC 


3851 


SBC XDC06 


F935 EC07DC 


3852 


CPX XDC07 


F938 D0F2 


3853 


BNE BF92C 


F93A 85B1 


3854 


STX ZBl 


F93C AA 


3855 


TAX 


F93D 8C06DC 


3856 


STY XDC05 


F940 8C07DC 


3857 


STY XDC07 


F943 A919 


3858 


LDA $19 


F945 8D0FDC 


3859 


STA XDCOF 


F948 ADODDC 


3860 


LDA XDCOD 


F94B 8DA302 


3861 


STA X02A3 


F94E 98 


3862 


TYA 


F94F E5B1 


3863 


SBC ZBl 


F951 86B1 


3864 


STX ZBl 


F953 4A 


3865 


LSR A 


F954 66B1 


3866 


ROR ZBl 


F956 4A 


3867 


LSR A 


F957 56B1 


3868 


ROR ZBl 


F959 A5B0 


3869 


LDA ZBO 


F95B 18 


3870 


CLC 


F95C 693C 


3871 


ADC $3C 


F95E C5B1 


3872 


CMP ZBl 


F960 B04A 


3873 


BCS BF9AC 


F962 A69C 


3874 


LDX Z9C 


F964 F003 


3875 


BEQ BF969 


F966 4C60FA 3876 


JMP JFA60 




3877 




F969 A6A3 


3878 


BF969 LDX ZA3 


F96B 301B 


3879 


BMI BF988 


F96D A200 


3880 


LDX $00 


F96F 6930 


3881 


ADC $30 


F971 65B0 


3882 


ADC ZBO 


F973 C5B1 


3883 


CMP ZBl 


F975 BOIC 


3884 


BCS BF993 


F977 E8 


3885 


IHX 


F978 6926 


3886 


ADC $26 


F97A 65B0 


3887 


ADC ZBO 


F97C C5B1 


3888 


CMP ZBl 


F97E B017 


3889 


BCS BF997 


F980 692C 


3890 


ADC $2C 


F982 65B0 


3891 


ADC ZBO 


F984 C5B1 


3892 


CMP ZBl 


F986 9003 


3893 


BCC BF98B 


F988 4C10FA 3894 


BF988 JMP JFAIO 




3895 




F98B A5B4 


3896 


BF98B LDA ZB4 


F98D FOID 


3897 


BEQ BF9AC 


F98F 85A8 


3898 


STA ZA8 


F991 D019 


3899 


BNE BF9AC 


F993 E6A9 


3900 


BF993 INC ZA9 


F995 B002 


3901 


BCS BF999 


F997 C6A9 


3902 


BF997 DEC ZA9 


F999 38 


3903 


BF999 SEC 


F99A E913 


3904 


SBC $13 



outlne 



;get TBHl 

;and complement of TBLl 
;(tlme elapsed) 
;lf high byte not steady, 
; repeat 

;else save high byte 

; reset TBLl to maximum 
;ditto TBHl 

; force load , one-shot and Timer B 
;into CRBl 

;save ICRl 

; complement high byte 
;save low byte 
; elapsed time In A, ZBl 
;/ 2 

;/ 4 

;get speed correction 

;+ 240 microseconds 
;if cycle shorter 
; dismiss 

;if byte available 
;receive It 

;test bit count and if beyond last bit, 

;do end of byte 

; assume bit value of 

;add 432 microseconds 

;+ 2 * speed correction 

;if cycle shorter 

; record a 

; assume bit value of 1 
;get 584 microseconds 
;+ 3 * speed correction 
;if cycle shorter 
; record a 1 
;get 760 rjcicftcciCi 
;+ 4 * speed correction 
;if cycle shorter 

;go do end of byte 

;if sync established 

;set erroneous bits 

;for a 0, increment 0/1 balance 

;for a 1, decrement 0/1 balance 

;0/l cutoff level 
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F99C 


E5B1 


3905 




SBC ZBl 


F99E 


6592 


3906 




ADC Z92 


F9A0 


8592 


3907 




STA Z92 


F9A2 


A5A4 


3908 




LDA ZA4 


F9A4 


4901 


3909 




EOR $01 


F9A6 


85A4 


3910 




STA ZA4 


F9A8 


F02B 


3911 




BEQ BF9D5 


F9AA 


86D7 


3912 




STX ZD7 


F9AC 


A5B4 


3913 


BF9AC 


LDA ZB4 


F9AE 


F022 


3914 




BEQ BF9D2 


F9B0 


ADA302 


3915 




LDA X02A3 


F9B3 


2901 


3916 




AND $01 


F9B5 


D005 


3917 




BNE BF9BC 


F9B7 


ADA402 


3918 




LDA X02A4 


F9BA D016 


3919 




BNE BF9D2 


F9BC 


A900 


3920 


BF9BC 


LDA $00 


F9BE 


85A4 


3921 




STA 7A4 


F9C0 


ODA402 


3922 




STA X02A4 


F9C3 


A5A3 


3923 






F9C5 


1030 


3924 




Ui Li or 7£ / 


F9C7 


30BF 


3925 






F9C9 


AO A£ 


3926 


BF9C9 




F9CB 


ZU£iZf O 


3927 




T^R ^FRF? 


F9CE 


A59B 


3928 




T HA 7QR 

Li L)l\ £f7D 


F9D0 


D0B9 


3929 




RTJF RPQftR 

DVilU I^r^ijD 


F9D2 




3930 


BF9D2 


TMP TFFRP 






3931 






F9D5 


A592 


3932 


BF9D5 


LDA Z92 


F9D7 


F007 


3933 




BEQ BF9E0 


F9D9 


3003 


3934 




BMI BF9DE 


F9DB 


C6B0 


3935 




DEC ZBO 


F9DD 


2C 


3936 




.BY $2C 


F9DE 


E6B0 


3937 


BF9DE 


INC ZBO 


F9E0 


A900 


3938 


BF9E0 LDA $00 


F9E2 


8592 


3939 




STA Z92 


F9E4 


E4D7 


3940 




CPX ZD7 


F9E6 


DOOF 


3941 




BNE BF9F7 


F9E8 


8A 


3942 




TXA 


F9E9 


DOAO 


3943 




BNE BF98B 


F9EB 


A5A9 


3944 




LDA ZA9 


F9ED 


30BD 


3945 




BMI BF9AC 


F9EF 


C910 


3946 




CMP $10 


F9F1 


90B9 


3947 




BCC BF9AC 


F9F3 


8595 


3948 




STA Z96 


F9F5 


B0B5 


3949 




BCS BF9AC 


F9F7 


8A 


3950 


BF9F7 


TXA 


F9F8 


459B 


3951 




EOR Z9B 


F9FA 


859B 


3952 




STA Z9B 


F9FC 


A5B4 


3953 




LDA ZB4 


F9FE 


F0D2 


3954 




BEQ BF9D2 


FAOO 


C6A3 


3955 




DEC ZA3 


FA02 


30C5 


3956 




BMI BF9C9 


FA04 


46D7 


3957 




LSR ZD7 


FA06 


66BF 


3958 




ROR ZBF 


FA08 


A2DA 


3959 




LDX $DA 


FAOA 


20E2F8 


3960 




JSR SF8E2 


FAOD 


4CBCFE 


3961 




JMP JFEBC 






3962 






FAIO A596 


3963 


JFAIO 


LDA Z96 


FA12 


F004 


3964 




BEQ BFA18 



;- cycle width 

; accumulated for speed correction 

;£lip cycle indication 

;1£ first cycle, 
;save bit value 
;if no sjrac yet 
; return from IRQ 
;if ICRl mask 



;and last CRAl mask shows no TAl flag, 
;exit from IRQ 

; clear cycle count 

;and last CRAl mask 

;if bit count indicates end of byte, 

;go do end of byte 

; schedule timer 

;if parity calculated does not match 
; set erroneous bit flag 
;exit from IRQ 

;if second cycle, 

; check accumulated over/under time 



;skip next instruction 

; adapt speed correction accordingly 

;reset accumulated over/under time 
;if 2nd cycle = complement of cycle 1, 
; include bit 

;if two cycles 
;and 0/1 balance 

;at least 16 "0" cycles extra 

;set sync detected 



; calculate parity 

;lf no sync yet, 
;exit 

; decrement pending bit count 
;after last bit, check parity 
; include bit 
;in byte being read 

; schedule timer 
;exit from IRQ 

;if sync detected 
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FAL4 A5E4 


3965 




LDA ZB4 


FA16 F007 


3966 




BEQ BFAIF 


FAIS A5A3 


3967 1 


BFA18 


LDA ZA3 


FAlA 3003 


3968 




BMI BFAIF 


FAIC 4C97F9 


3969 
3970 


; 


JlIP BF997 


FAIF 46B1 


3971 


BFAIF 


LSR ZBl 


FA21 A993 


3972 




LDA $93 


FA23 3b 


3973 




SEC 


FA24 E5BI 


3974 




SBC ZBl 


FA26 65B0 


3975 




ADC ZBO 


FA28 OA 


3976 




ASL A 


FA29 AA 


3977 




TAX 


FA2A 20E2F8 


3978 




JSR SF8E2 


FA2D E69C 


3979 




INC Z9C 


FA2F A5B4 


3980 




LDA ZB4 


FA31 DOU 


3981 




BNE BFA44 


FA33 A596 


3982 




LDA Z96 


FA35 F026 


3983 




BEQ BFA5D 


FA37 85A8 


3984 




STA ZA8 


FA39 A900 


3985 




LDA $00 


FA3B 8596 


3986 




STA Z96 


FA3D A981 


3987 




LDA $81 


FA3F 8D0DDC 


3968 




STA XDCOD 


FA42 S5B4 


3989 




STA ZB4 


FA44 A596 


3990 


BFA44 


LDA Z96 


FA46 85B5 


3991 




STA ZB5 


rA48 F009 


3992 




BEQ BFA53 


FA4A A900 


3993 




LDA $00 


FA4C 85B4 


3994 




STA ZB4 


FA4E A901 


3995 




LDA $01 


FA50 8D0DDC 


3996 




STA XDCOD 


FAS 3 A5BF 


3997 


BFA53 


LDA ZBF 


FA55 8 5 ED 


3998 




STA ZBD 


FAS 7 A5A8 


3999 




LDA ZA8 


FAS9 05A9 


4000 




ORA ZA9 


FA5B 85B6 


4001 




STA ZB6 



FA5D 4CBCFE 4002 BFA5D JtlP JFEBC 



; and not yet established 

;or last bit done 

; allow byte reception 

; compute new speed correction value 



; schedule timer 

; Indicate byte available 

;lf no sync established yet, 

;but sync detected 

;set error bits 

; clear sync detected 
;set TAl bit 
;ln ICRl 

; set sync established 

;move sync status 

; to saved sync status 

; if not detected, 

; Indicate sync not established 

; clear TA mask in ICRl 
; save byte read 

; accumulate possible errors 
;exit from IRQ 
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4004 jreceive next byte from cassette 

4005 ; 



FA60 


2097FB 


4006 


JFA60 


JSR 


SFB97 




FA63 


859c 


4007 




STA 


Z9C 


j-LilUX^aLC LIU U UC dVaXXaUXC jrCL 


FAS 5 


A2DA 


4008 




LDX 


$DA 




FA67 


20F2F8 


4009 




JSR 


SF8E2 


■ Gj^tloHlll TTl £1 T~ 


FA6A 


A5BE 


4010 




LDA 


2 BE 


fxirst or second ptisse being read) 


FA6C 


F002 


4011 




BEQ 


BFA70 




FA6E 


85A7 


4012 




STA 


ZA7 


} L.(jpy Xli LU cLl-LUclX pildSC 


FA70 


A90F 


4013 


BFA70 


LDA 


$0F 




FA72 


24AA 


4014 




BIT 


ZAA 


data, beyonu area 


FA74 


1017 


4015 




BPL 


BFA8D 




FA76 


A5B5 


4016 




LDA 


ZB5 


) and in second tiaxt 


FA78 


DOOC 


4017 




BNE 


BFA86 




FA7A 


ADDEi 


4018 




LDX 


ZBE 




FA7C 


CA 


4019 




DEX 






FA7D 


DOOB 


4020 




BNE 


BFA8A 




FA7F 


A908 


4021 




LDA 




J xnaxcace Liong cxock xn l 


FA81 


2 1 C FE 


4022 




JSR 


CTTPl P 
Df EilL> 




FA84 


D004 






B{]£ 


BFA8A 


J and exit 


f AOO 






6 FAS 6 


LDA 






FAB 8 


85AA 


4025 




STA 


ZAA 


;set gap 


FA8A 






BFA8A 


JMP 


JFEBC 


; exit from IRQ 






4027 








FA8D 


7031 


4028 


RPAftn 


BVS 


BFACO 


jxf data^ go collect 


FA8F 


DO 18 


4029 






BFAA9 


J If header J decrement count 


FA91 


A5B5 


4030 




LDA 


ZB5 


J If gap and byte valid 


FA93 


D0F5 


4031 




BNE 


BFA8A 




FA95 


A5B6 


4032 




LDA 


ZB6 


\ and no erroneous bits 


FA97 


dofi 


Ann 




BNE 


BFA8A 




FA99 


A5A7 


4034 




LDA 


ZA7 


J get actual phase 


FA9B 


4A 


4035 




LSR 




J Ux I. / y t Dy tc 


FA9C 


A5BD 


4036 




LDA 


ZBD 




FA9E 


3003 


4037 




BMI 


BFAA3 




FAAO 


9018 


4038 




BCC 


BFABA 




FAA2 


18 


4039 




CLC 






FAA3 


B015 


4040 


BFAA3 


BCS 


BFABA 


'must correspond to header phase 


FAA5 


290F 


4041 




AND 


$0F 




FAA7 


85AA 


4042 




STA 


ZAA 


J set header count 


FAA9 


C6AA 


4043 


BFAA9 


DEC 


ZAA 


J decrement header count 


FAAB 


DODD 


4044 




BNE 


BFA8A 


J at end of header. 


FAAD 


A940 


4045 




LDA 


9'^u 




FAAF 


85AA 


4046 




STA 


ZAA 


J set data 


FABl 


208EFB 


4047 




JSR 


SFB8E 


flUfJvti UcgXilllXtlg UX X/ aCca XIIUU titWjf U 


FAB4 


A900 


4048 




LDA 


$00 




FAB6 


8 SAB 


4049 




STA 


i AD 


J clear checKsum 


FAB 8 


FODO 


4050 




BEQ 


BFA8A 




FABA 


A980 


4051 


BFABA 


LDA 


$80 


;if illegal header 


FABC 


85AA 


4052 




STA 


ZAA 


f set Data Af ter Area 


FABE 


DOC A 


4053 




BNE 


BFA8A 




FACO 


A5B5 


4054 


BFACO 


LDA 


ZB5 


■^f Tint" Hat~a iral'lrl 
jXX U<iUa.| UUL. UclUd LtU L VetXXU 


FAC2 


FOOA 


4055 




BEQ 


BFACE 




FAC4 


A904 


4056 




LDA 


$04 


;set Short Block Error 


FAC6 


201CFE 


4057 




JSR 


SFEIC 


;and indicate in ST 


FAC9 


A900 


4058 




LDA 


$00 




FACB 


4C4AFB 


4059 
4060 




JMP 


JFB4A 


;do end of block 


FACE 


20D1FC 


4061 


BFACE 


JSR 


SFCDl 


;lf at end of area. 


FADl 


9003 


4062 




BCC 


BFAD6 




FAD3 


4C48FB 


4063 




JMP 


JFB48 


;set data after area 



4064 ; 



FAD6 A6A7 


4065 BFAD6 


LDX ZA7 


PADS CA 


4066 




DEX 


FAD9 F02D 


4067 




BEQ BFB08 


FADE A593 


4068 




LDA Z93 


FADD FOOC 


4069 




BEQ BFAEB 


FADF AOOO 


4070 




LDY $00 


FAEl A5BD 


4071 




LDA ZBD 


FAE3 DIAC 


4072 




CMP (ZAC),Y 


FAE5 F004 


4073 




BEQ BFAEB 


FAE7 A901 


4074 




LDA $01 


FAE9 85B6 


4075 




STA ZB6 


FAEB A5B6 


4076 BFAEB 


LDA ZB6 


FAED F04B 


4077 




BEQ BFB3A 


FAEF A23D 


A (17 ft 




LDX $3D 


FAFl E49E 


/.n7Q 




CPX Z9E 


FAF3 903E 






BCC BFB33 


FAF5 A69E 






LDX Z9E 


FAF7 ASAJD 


A nBO 




LDA ZAD 


FAF9 9 DO 101 


Anft'^ 




STA XO 100+1,: 


FAFC A5AC 


A nfiA 




LDA ZAC 


FAFE 9D0001 


4085 




STA XOIOO.X 


FBOl E8 


4086 




INX 


FB02 E8 


4087 




INX 


FB03 869E 


4088 




STX Z9E 


FB05 4C3AFB 


4089 
4090 




JMP BFB3A 


FB08 A69F 


4091 


BrB08 LDX Z9F 


FBOA E49E 


4092 




CPX Z9E 


FBOC F035 


4093 




BEQ BFB43 


FBOE A5AC 


4094 




LDA ZAC 


FBIO DDOOOl 


4095 




CMP XOIOO.X 


FB13 D02E 


4096 




BNE BFB43 


FB15 A5AD 


4097 




LDA ZAD 


FB17 DDOlOl 


. 4098 




CMP XOlOO+1, 


FEIA D027 


4099 




BNE BFB43 


FBIC E69F 


4100 




INC Z9F 


FBIE E69F 


4101 




INC Z9F 


FB20 A593 


4102 




LDA Z93 


FB22 FOOB 


4103 




BEQ BFB2F 


FB24 A5ED 


4104 




LDA ZBD 


FB26 AOOO 


4105 




LDY $00 


FB28 DIAC 


4106 




CMP (ZAC),Y 


FB2A F017 


4107 




BEQ EFB43 


FB2C C8 


4108 




INY 


FB2D 84B6 


4109 




STY ZB6 


FB2F A5B6 


4110 


BFB2F LDA ZB6 


FB31 F007 


4111 




BEQ BFB3A 


FB33 A910 


4112 


BFB33 LDA $10 


FB35 201CFE 4113 




JSR SFEIC 


FB38 D009 


4114 




BNE BFB43 


FB3A A593 


4115 


BFB3A LDA Z93 


FB3C D005 


4116 




BHE BFB43 


FB3E A8 


4117 




lAY 


FB3F A5BD 


4118 




LDA ZBD 


FB41 91AC 


4119 




STA (ZAC),Y 


FB43 20UBFC 4120 


BFB43 JSR SFCDB 


FB46 D043 


4121 




BHE BFB8B 


FB48 A980 


4122 


JFB48 LDA $80 


FB4A S5AA 


4123 


JFB4A STA ZAA 



;lf actual phase = 1 
;do error correction 
;if Verify pass 

; compare byte to current character 

;set error flag upon mismatch 
;lf errors 

;and error log table is not at maximum 
; store pointer into error log table 

; set new error log index 

; If pass 2 error log Index at maximum, 
; no correction possible 
; else 

; check for match in error log table 

;if so, bump pass 2 error log index 
;lf Verify pass 

; compare byte to current character 
;set error if not equal 

;lf still an error 

;set Unrecoverable Read Error in ST 
;if Load, 

; store byte 

; increment address 

;and exit 

;set data after area 
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FB4C 


78 


4124 




SEX 




FB4D 


A20I 


4125 




LDX 


$01 


FB4F 


oEUDDC 


4126 




STX 


XDCOD 


FB52 


AEODDC 


4127 




LDX 


XDCOD 


FB55 


A6BE 


4128 




LDX 


ZEE 


FB57 


CA 


4129 




DEX 




FB58 


3002 


4130 




BMI 


BFB5C 


FB5A 


86 BE 


4131 




STX 


ZBE 


FB5C 


C6A7 


4132 


BFB5C 


DEC 


ZA7 


FB5E 


F008 


4133 




BEQ 


BFB68 


FB60 


A59E 


4134 




LDA 


Z9E 


FB62 


D027 


4135 




BNE 


BFB8B 


FB64 


85BE 


4136 




STA 


ZBE 


FB66 


F023 


4137 




BEQ 


BFB8B 


FB68 


2093FC 


4138 


BFB68 


JSR 


SFC93 


FB6B 


208EFB 


4139 




JSR 


SFB8E 


FB6E 


AOOO 


4140 




LDY 


$00 


FB70 


84AB 


4141 




STY 


ZAB 


FB72 


BIAC 


4142 


BFB72 


LDA 


(ZAC),y 


FB74 


45AB 


4143 




EOR 


ZAB 


FB76 


85AB 


4144 




STA 


ZAB 


FB78 


20DBFC 


4145 




JSR 


SFCDB 


FB7B 


20D1FC 


4146 




JSR 


SFCDl 


FB7E 


90F2 


4147 




BCC 


BFB72 


FB80 


A5AB 


4148 




LDA 


ZAB 


FB82 


45BD 


4149 




EOR 


ZBD 


FB84 


F005 


4150 




BEQ 


BFB8B 


FB86 


A920 


4151 




LDA 


$20 


FB88 


201CFE 


4152 




JSR 


SFEIC 


FB8B 


4CBCFE 


4153 


BFB8B 


JMP 


JFEBC 



; clear TA mask from ICRl 
;if phase 1 or 2 



; decrement phase 
;decrement actual phase 
;if not end of block 
;and no errors encountered 
;sklp phase 

;if end of block, 

; switch from cassette to default IRQ 
;move beginning of I/O area into ZAC/D 

; clear checksum value 
; compute checksum 



;bump address 

; check for end of block 



;if computed checksum does not match, 

;set Checksum Error in ST 
; return from IRQ 
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FB8E A5C2 
FB90 85AD 
FB92 A5C1 
FB94 85AC 
FB96 60 



FB97 A908 
FB99 85A3 
FB9B A900 
FB9D 85A4 
FB9F 85A8 
FBAl 859B 
FBA3 85A9 
FBA5 60 



FBA6 
FBA8 
FBA9 
FBAB 
FBAD 
FBAF 
FBBl 
FBB4 
FBB7 
FBBA 
FBBC 
FBBF 
FBCl 
FBC3 
FBC5 
FBC7 



A5BD 
4A 
A960 
9002 
A9B0 
A200 
8D06DC 
8E07DC 
ADODDC 
A919 
8D0FDC 
A501 
4908 
8501 
2908 
60 



4155 
4156 
4157 
4158 
4159 
4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 



;move save/load address Into ZAC/D 

;move high byte of save/ load pointer 
;then low byte 



SFB8E LDA ZC2 
STA ZAD 
LDA ZCl 
STA ZAC 
RTS 

; initialize cassette read/write variables 
;set bit count 



SFB97 LDA $08 
STA ZA3 
LDA $00 
STA ZA4 
STA ZA8 
STA Z9B 
STA ZA9 
RTS 



; clear cycle count 

; clear byte start cycle 1 

; clear parity bit 

; clear byte start cycle 2 



■schedule ICRl Timer B and invert cassette write line 



SFBA6 LDA ZBD 
LSR A 
LDA $60 
BCC BFBAF 
SFBAD LDA $B0 
BFBAF LDX $00 
SFBBl STA XDC06 
STX XDC07 
LDA XDCOD 
LDA $19 
STA XDCOF 
LDA ZOl 
EOR $08 
STA ZOl 
AND $08 
RTS 



;move bit of current character into C 
; start with value for a 

;if a 1 to be sent, set value for a 1 

;TBL1 set to 
;TBH1 set to $60/$B0 

; force load, one-shot and Timer B 
;into CRBl 

; invert polarity of cassette write bit 
; indicate polarity in A and Z 
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4193 


;IRQ routine for 


CaSSc etc wt ice ) pat L ^ ^ a t r dKjU J 






4194 














4195 


;usea 


for byte s 


tart cycle and each half cycle per data b 






t L70 


I 








FBC8 


38 


4197 


Br dLo 


SEC 






FBC9 


66B6 


4198 




ROR 


ZB6 


I set current byte pointer —y 32K 


FBCB 


303c 


4199 




BMl 


BFC09 


I JMP 


FBCD 


A5A8 


4200 




LDA 


ZA8 


jl£ byte start cycle L 


FBCF 


D012 


4201 




BNE 


BFBE3 




FBDl 


A910 


4202 




LDA $10 




FBD3 


A201 


4203 




LDX $01 


;set AX to 272 


FBD5 


20B1FB 


4204 




JSR 


SFBBl 


; invert output and schedule timer 


FBD8 


D02F 


4205 




BNE 


BFC09 


;if output is zero again 


FBDA E6A8 


4206 




INC 


ZA8 


^indicate cycle 1 finished 


FBDC 


A5B5 


4207 




LDA 


ZB6 


f X.L LiUL renL uyte puiuter 


FBDE 


1029 


4208 




BPL 


BFC09 




FBEO 


4C57FC 


4209 




JMP 


JFC57 


;switch to other cassette write IRQ 






4210 


* 






FBE3 


A5A9 


4211 


BFBE3 


LDA 


ZA9 


J if byte start cycle 2 


FBE5 


D009 


4212 




BNE 


BFBFO 


FBE7 


20ADFB 






JSR 


SFBAD 


; invert output and schedule timer 


FBEA 


DOID 






BNE 


BFC09 


;if output is zero again 


FBEC 


E6A9 


4215 




INC 


ZA9 


; increment count for 2 cycles per bit 


FBEE 


D019 


ID 




BNE 


BFC09 


FBFO 


20A6FB 


4217 


BFBFO 


JSR 


SFBA6 


; invert output and schedule timer 


FBF3 


D014 


4218 




BNE 


BFC09 


;if output is zero again 


FBF5 


A5A4 


4219 




LDA 


ZA4 


FBF7 


4901 


4220 




EOR 


$01 


; increment count for 2 cycles per bit 


FBF9 


85A4 


4221 




STA 


ZA4 


FBFB 


FOOF 


4222 




BEQ 


BFCOC 


;if cycle is complete 


FBFD 


A5BD 






LDA 


ZBD 




FBFF 




A "5 *) A 




EOR $01 


; invert data bit for next cycle 


FCOl 


d5BD 






STA 


ZBD 


FC03 


2901 






AND 


$01 


;add bit 


FC05 


459B 


4227 




EOR 


Z9B 


; to parity 


FC07 


859B 


4228 




STA 


Z9B 


FC09 


4CBCFE 


4229 




JMP 


JFEBC 


• anA avl t' TDD 

f ana exit 






4230 








FCOC 


46BD 


4231 


BFCOC 


LSR 


ZBD 


i if £■ cycles done ^ 


FCOE 


C6A3 


4232 




DEC 


ZA3 


I decrement bit count 


FCIO 


A5A3 


4233 




LDA 


ZA3 




FC12 


F03A 


4234 




BEQ 


BFC4E 


J after byte, send parity bit 


FC14 


10F3 


4235 




BPL 


BFC09 


^during byte, send next bit 


FC16 


2097FB 


4236 


BFCIo 


JSR 


SFB97 


J at end of byte , reset variables 


FC19 


58 


4237 




CLI 




• all rtj.r TB(*1 
, 31 low LaXi 


FCIA 


A5A5 


4238 




LDA 


ZA5 


;if block header count 


FCIC 


F012 


4239 




BEQ 


BFC30 


J not zero 


FCIE 


A200 


4240 




LDX $00 




FC20 


86D7 


A OA 1 




STX 


ZD7 


; clear checksum 


FC22 


C6A5 


4242 




DEC 


ZA5 


I decrement header count 


FC24 


A6BE 


4243 




LDX 


ZBE 




FC26 


E002 


A t A A 




CPX $02 


;if phase 2 


FC28 


D002 


A OA "* 




BNE 


BFC2C 


FC2A 0980 


4246 




ORA $80 




FC2C 


85BD 


4247 


BFC2C 


STA 


ZBD 


;and send count as data for header 


FC2E 


D0D9 


4248 




BNE 


BFC09 


; return from IRQ 


FC30 


20D1FC 


4249 


BFC30 


JSR 


SFCDl 


;if end of data reached 


FC33 


900A 


4250 




BCC 


BFC3F 


;do next byte 


FC35 


D091 


4251 




BNE 


BFBC8 


;if beyond, waste time 


FC37 


E6AD 


4252 




INC 


ZAD 


;if at end, set pointer beyond end 



210 



FC39 


A5D7 


/■ ^1 




T nA 7D7 


FC3E 


85BD 


Hi 




OTA 7BD 


FC3D 


BOCA 






Of c RFr09 


FC3F 


AO 00 


4256 


BFC3F 


T nv ^iOO 

LiU I 9 vJU 


FC4'1 


BIAC 


J / 






FC43 


85BD 


HZ JO 






FC45 


45D7 


4259 






FC47 


iJ5D7 


4260 






FC49 




A Of. 1 






FC4C 


DOEB 


A 9 A 9 
4ZDZ 






FC4E 


A59B 




BFC4E 




FC50 


/■ on 1 


4264 




EOR $01 


FC52 


85 BD 






STA ZBD 


t L JH 




4266 


BFC54 


JMP JFEBC 






4267 






FC57 


Co BE 


4268 


JFC57 


DEC ZBE 


FC59 


D003 


4269 




BNE BFC5E 


FC5B 


20CAFC 


4270 




JSR SFCCA 


FC5E 


A950 


4271 


BFC5E LDA $50 


FC60 


85A7 


4272 




STA ZA7 


FC62 


A208 


4273 




LDX $08 


FC64 


78 


4274 




SEI 


FC65 


20BDFC 


: 4275 




JSR SFCBD 


FC68 


DOEA 


4276 




BNE BFC54 



;get checksum 

; and send it 

; return from IRQ 

;get next byte to write 

;and move to output character buffer 

; compute checksum 

; advance address 
; return from IRQ 
;get parity bit 
; Invert it 

;put into output buffer 
; return from IRQ 

;decrement phase 

; if phase is 

;stop cassette operations 

; set # cycles per sync to 40 



; set IRQ vector 

; for cassette write, part 1 

; return from IRQ 
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4278 ;IRQ routine for cassette write, part 1 

4279 ; 

4280 ; entered for each block copy and for end of block 

4281 ; 



FC6A 


A978 


4282 


WFC6A 


LDA 


$78 




FC6C 


20AFFB 


4283 




JSR 


BFBAF 


; invert output and schedule Timer 


FC6F 


DOE 3 


4284 




BNE 


BFC54 


;if output is zero again 


FC71 


C6A7 


4285 




DEC 


ZA7 


; decrement cycle count per sync 


FC73 


DODF 


4286 




BNE 


BFC54 


;when zero, 


FC75 


2097FB 


4287 




JSR 


SFB97 


;reset cassette read/write variables 


FC78 


C6AB 


4288 




DEC 


ZAB 


; decrement sync count per block 


FC7A 


10D8 


4289 




BPL 


BFC54 


;if negative. 


FC7C 


A20A 


4290 




LDX 


$0A 


;set IRQ vector 


FC7E 


20BDFC 


4291 




JSR 


SFCBD 


;to other cassette write routine 


FC81 


58 


4292 




CLI 




; enable IRQ 


FC82 


E5AB 


4293 




INC 


ZAB 


;sync count set to 


FC84 


A5BE 


4294 




LDA 


ZBE 


;if phase - 


FC86 


F030 


4295 




BEQ 


BFCB8 


;go terminate 


FC88 


208EFB 


4296 




JSR 


SFB8E 


;move start of I/O area to current addr 


FC8B 


A209 


4297 




LDX 


$09 




FC8D 


86A5 


4298 




SIX 


ZA5 


;set block header count 


FC8F 


86B6 


4299 




SIX 


ZB6 


;and current byte pointer 


FC91 


D083 


4300 
4301 


} 


BNE 


BFC16 


;go write block 






4302 


;swltch from cassette IRQ to default IRQ 






4303 










FC93 


08 


4304 


SFC93 


PHP 




;save flags 


FC94 


78 


4305 




SEI 




; disable IRQ 


FC95 


ADllDO 


4306 




LDA 


XDOll 




FC98 


0910 


4307 




ORA 


$10 


;make screen visible again 


FC9A 


8D11D0 


4308 




STA 


XDOll 




FC9D 


20CAFC 


4309 




JSR 


SFCCA 


;stop cassette motor 


FCAO 


A97F 


4310 




LDA 


$7F 




FCA2 


8D0DDC 


4311 




STA 


XDCOD 


;clear mask for all IRQ's in ICRl 


FCA5 


20DDFD 


4312 




JSR 


SFDDD 


;reset TAl to 1/50 of a second 


FCA8 


ADA002 


4313 




LDA 


X02A0 




FCAB 


F009 


4314 




BEQ 


BFCB6 




FCAD 


8D1503 


4315 




STA' 


X0315 


; res tore standard IRQ vector 


FCBO 


AD9F02 


4316 




LDA 


X029F 




FCB3 


8D1403 


4317 




STA 


X0314 




FCB6 


28 


4318 


BFCB6 


PLP 




; res tore flags 


FCB7 


60 


4319 




RTS 
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FCB8 2093FC 
FCBB F097 



FCBD BD93FD 
FCCO 8D1403 
FCC3 BD94FD 
FCC6 8D1503 
FCC9 60 



FCCA A501 
FCCC 0920 
FCCE 8501 
FCDO 60 



FCDl 38 
FCD2 A5AC 
FCD4 E5AE 
FCD6 A5AD 
FCD8 E5AF 
FCDA 60 



FCDB E6AC 
FCDD D002 
FCDF E6AD 
FCEl 60 



4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 



; terminate cassette I/O 

BFCB8 JSR SFC93 ; switch from cassette to default IRQ 

BEQ BFC54 ; return from IRQ 

;set IRQ vector depending upon X 

SFCBD LDA TFD9B-8,X ;move low byte of address 

STA X0314 ;into low byte of IRQ vector 

LDA TFD9B-7,X ;then do high byte 
STA X0315 
RTS 

;stop cassette motor 



SFCCA LDA ZOl 
OKA $20 
STA ZOl 
RTS 



;set bit 5 high In 6510 I/O register 
;to stop cassette motor 



; compare ZAC/D with ZAE/F 



SFCDl SEC 

LDA ZAC 
SBC ZAE 
LDA ZAD 
SBC ZAF 
RTS 

; Increment ZAC/D 

SFCDB INC ZAC 

BNE BFCEl 
INC ZAD 

BFCEl RTS 



; compare low parts 

;then high parts 

;C Is clear when ZAC/D is low 



; increment low 

;then high when necessary 
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4357 ;Reset routine 

4358 ; 



FCE2 


A2FF 


4359 


WFCE2 


LDX 


$FF 






FCE4 


78 


4360 




SEI 






;disable IRQ 


FCE5 


9A 


4361 




TXS 






;set stack pointer 


FCE6 


D8 


4362 




CLD 






;clear decimal mode 


FCE7 


2002FD 


4363 




JSR 


SFD02 




;test for a cartridge 


FCEA 


D003 


4364 




BNE 


BFCEF 






FCEC 


6C0080 


4365 
4366 




JMP 


(X8000) 




;if found, execute cartridge Reset 


FCEF 


8E16D0 


4367 


BFCEF 


STX 


XD016 




; clear RES bit in video chip 


FCF2 


20A3FD 


4368 




JSR 


SFDA3 




; initialize I/O devices 


FCF5 


2050FD 


4369 




JSR 


SFD50 




; initialize memory pointers 


FCF8 


2015FD 


4370 




JSR 


SFD15 




;restore I/O vectors 


FCFB 


205BFF 


4371 




JSR 


JFF5B 




; Initialize screen and keyboard 


FCFE 


58 


4372 




CLI 






; enable IRQ 


FCFF 


6C00A0 


4373 
4374 




JMP 


(XAOOO) 




; begin execution 






4375 


; check for the presence of a cartridge 






4376 












FD02 


A205 


4377 


SFD02 


LDX $05 




;set length of key 


FD04 


BDOFFD 


4378 


BFD04 


LDA 


TFDlO-1, 


.X 


; compare table contents 


FD07 


DD0380 


4379 




CMP 


X8004-1, 


.X 


;to cartridge contents 


FDOA 


D003 


4380 




BNE 


BFDOF 




;exit with Z clear upon mismatch 


FDOC 


CA 


4381 




DEX 








FDOD 


D0F5 


4382 




BNE 


BFD04 




; repeat for 5 characters 


FDOF 


60 


4383 


BFDOF 


RTS 






;Z set upon match 



4384 ; 

4385 ; cartridge key for autostart and warm start possibilities 

4386 ; 

FDIO C3C2CD 4387 TFDIO .BY 'C+$80,'B+$80,'>H-$80,'8,'0 
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FD15 A230 
FD17 AOFD 
FD19 18 



FDIA 
FDIC 
FDIE 
FD20 
FD23 
FD25 
FD27 
FD29 
FD2C 
FD2D 
FD2F 



86C3 

84C4 

AO IF 

B91403 

B002 

B1C3 

91C3 

991403 

88 

lOFl 

60 



FD30 
FD32 
FD34 
FD36 
FD38 
FD3A 
FD3C 
FD3E 
FD40 
FD42 
FD44 
FD45 
FD48 
FD4A 
FD4C 
FD4E 



31EA 
66FE 
47FE 
4AF3 
91F2 
0EF2 
50F2 
33F3 
57F1 
CAFl 
EDF6 
3EF1 
2FF3 
66FE 
A5F4 
EDF5 



4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 



SFD15 LDX <TFD30 
LDY >TFD30 
CLC 



; restore I/O vectors 

;set XY to standard table 
;clear carry to use XY address 
;set I/O vectors depending on XY 

store XY in temporary pointer 
set count for move 



JFDIA STX ZC3 
STY ZC4 
LDY $1F 
BFD20 LDA X0314,Y 
BCS BFD27 
LDA (ZC3),Y 
BFD27 STA (ZC3),Y 
STA X0314,Y 
DEY 

BPL BFD20 
RTS 



;1£ carry set, don't fetch from XY addr 
;move one byte 

;to I/O vector 

; repeat for 32 bytes 



•.vectors for Operating System at $0314-0333 



TFD30 .W WEA31 

.W WFE66 

.W WFE47 

.W WF34A 

.W WF291 

.W WF20E 

.W WF250 

.W WF333 

.W WF157 

.W WFICA 

.W WF6ED 

.W WF13E 

.W WF32F 

.W WFE66 

.W WF4A5 

.W WF5ED 



;IRQ 
;BRK 
;NMI 
;0PEN 
; CLOSE 

;set input device 
;set output device 
; restore I/O 
; input 
; output 

;test Stop key 

;get 

; abort I/O 
; unused (BRK) 
;load RAM 
:save RAM 
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4428 


• inltiaXizc nidiioiry 


pointers 






4429 






FD50 


A900 


4430 


SFD50 LDA $00 




FD52 


A8 


4431 


TAY 




FD53 


990200 


4432 


BFD53 STA Z02,Y 


\ clear page 


FD56 


990002 


4433 


STA X0200,Y 


J page 2 


FD59 


990003 


4434 


STA X0300,Y 


J and pag e 3 


FD5C 


C8 


4435 


INY 


FD5D 


D0F4 


4436 


BNE BFD53 




FD5F 


A23C 


4437 


LDX $3C 




FD61 


A003 


4438 


LDY $03 




FD63 


86B2 


4439 


STX ZB2 


y U L a^/G UU-X JLw L ^nj Xli i*C L 


FD65 


84B3 


4440 


STY ZB3 




FD67 


AS 


4441 


TAY 




FD68 


A903 


4442 


LDA $03 




FD6A 


85C2 


4443 


STA ZC2 


J initialize page for RAM test 


FD6C 


E6C2 


4444 


BFD6C INC ZC2 


y L.iJLi u -Lit Lie ixAix u Co k uii lie A L- uicuiu L y uagi^ 


FD6E 


BlCl 


4445 


BFD6E LDA (ZCl),Y 


FD70 


AA 


4446 


TAX 


J save RAM contents 


FD71 


A955 


4447 


LDA $55 




FD73 


91C1 


4448 


STA (ZCl) ,Y 




FD75 


DlCl 


4449 


CMP ( ZC 1 ) , Y 




FD77 


DOOF 


4450 


BNE BFD88 


; if $55 not' t read back, then end of RAM 


FD79 


2A 


4451 


ROL A 




FD7A 


91C1 


4452 






FD7C 


DlCl 


4453 






FD7E 


D008 


4454 


on El DC uoo 


} ^AA not LCdQ uacKj cnen enu or luui 


FD80 


8A 


4455 


TXA 




FD81 


91C1 


4456 




J else res tore original contents 


FD83 


C8 


4457 


INY 


\ bump address 


FD84 


DOES 


4458 


BNE BFD6E 


^ ^Vll UXLl l^li oqUIC ^a^C X J. U <iJVcLXXwW 


FD86 


F0E4 


4459 


BEQ BFD6C 


J else continue test on next page 


FD88 


98 


4460 


BFD88 TYA 


FD89 


AA 


4461 


TAX 




FD8A 


A4C2 


4462 


LDY ZC2 




FD8C 


18 


4463 


CLC 




FD8D 


202DFE 


4464 


JSR JFE2D 


fOCU l^V^ UiCLUw-L y XLl IpC L X X UUl A. X 


FD90 


A908 


4465 


LDA $08 




FD92 


8D8202 


4466 


STA X0282 


1 set bottoiD of ntemory pointer 


FD95 


A904 


4467 


LDA $04 




FD97 


8D8802 


4468 


STA X0288 


* set screen meiftory page 


FD9A 


60 


4469 


RTS 








4470 










4471 


;IRQ vectors 








4472 






FD9B 


6AFC 


4473 


TFD9B .W WFC6A 


;X=$08, cassette write routine, part 1 


FD9D 


CDFB 


4474 


-W WFBCD 


;X=$OA cassette write routine, part 2 


FD9F 


31EA 


4475 


.W WEA3I 


;X=$OC standard IRQ routine 


FDAl 


2CF9 


4476 


.W WF92C 


;X=$OE cassette read routine 



FDA3 
FDA5 
FDA8 
FDAB 
FDAE 
FDBO 
FDB3 
FDB6 
FDB9 
FDBC 
FDBE 
FDCl 
FDC4 
FDC7 
FDC8 
FDCB 
FDCD 
FDDO 
FDD2 
FDD5 
FDD? 
FDD9 
FDDB 



A97F 
8D0DDC 
8D0DDD 
8D00DC 
A908 
8D0EDC 
8D0EDD 
8D0FDC 
8D0FDD 
A200 
8E03DC 
8E03DD 
8E18D4 
CA 

8E02DC 
A907 
8D00DD 
A93F 
8D02DD 
A9E7 
8501 
A92F 
8500 



FDDD 
FDEO 
FDE2 
FDE4 
FDE7 
FDE9 

FDEC 
FDEE 
FDFl 
FDF3 
FDF6 



ADA602 
FOOA 
A925 
8D04DC 
A940 
4CF3FD 

A995 
8D04DC 
A942 
8D05DC 
4C6EFF 



FDF9 
FDFB 
FDFD 
FDFF 



FEOO 
FE02 
FE04 
FE06 



85B7 
86BB 
84BC 
60 



85B8 
86BA 
84B9 
60 



4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 



;initlalize I/O devices 



SFDA3 LDA $7F 

STA XDCOD 
STA XDDOD 
STA XDCOO 
LDA $08 
STA XDCOE 
STA XDDOE 
STA XDCOF 
STA XDDOF 
LDX $00 
STX XDC03 
STX XDD03 
STX XD418 
DEX 

STX XDC02 
LDA $07 
STA XDDOO 
LDA $3F 
STA XDD02 
LDA $E7 
STA ZOl 
LDA $2F 
STA ZOO 



; clear all mask bits in ICRl 

;and in ICR2 
;set PAl to $7F 

;one-shot mode In CRAl 
;and CRA2 
;and CRBl 
;and CRB2 



DDRBl set to all inputs 
,DDRB2 set to all inputs 
kill volume In SID chip 



;DDRA1 set to all outputs 
;PA2 bits 0-2 set high 
;DDRA2 bits 0-5 set to outputs 
; initialize 6510 I/O register 
;and 6510 data direction register 
initialize TALl/TAUl for 1/60 of a second 



SFDDD LDA X02A6 
BEQ BFDEC 
LDA $25 
STA XDC04 
LDA $40 
JMP JFDF3 

BFDEC LDA $95 

STA XDC04 
LDA $42 
JFDF3 STA XDC05 
JMP JFF6E 



;if this is an Intl. machine, 

;use Intl value for 1/60 second delay 

;and store in TALI 

;high byte of value 

;go set high byte of timer 

; since this is US machine, use US value 
;for 1/60 second to set TALI 
;hlgh byte of value 
;set TAHl 

;go set CRAl for continuous timer IRQ s 



initialize file name parameters 



JFDF9 STA ZB7 
STX ZBB 
STY ZBC 
RTS 



;set # of characters In file name 
;set address of file name 
;+ high byte 



; initialize file parameters 



JFEOO STA ZB8 
STX ZBA 
STY ZB9 
RTS 



;set logical file 
;set current device 
;set secondary address 
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4533 ;read I/O status word 







4534 


; 


FE07 


A5BA 


4535 


JFE07 LDA ZBA 


FE09 


C902 


4536 


CMP $02 


FEOB 


DOOD 


4537 


BNE BFEIA 


FEOD 


AD9702 


4538 


LDA X0297 


FEIO 


48 


4539 


PHA 


FEll. 


A900 


4540 


LDA $00 


FEU 


8D9702 


4541 


STA X0297 


FE16 


68 


4542 


PLA 


FE17 


60 


4543 


RTS 






4544 


; 






4545 


; control kernal 






4546 


• 


FE18 


859D 


4547 


JFE18 STA Z9D 






4548 








4549 


;read ST 






4550 




FEIA 


A590 


4551 


BFEIA LDA Z90 






4552 


• 






4553 


;add A to curren 






4554 


; 


FEIC 


0590 


4555 


SFEIC ORA Z90 


FEIE 


8590 


4556 


STA Z90 


FE20 


60 


4557 


RTS 






4558 


> 






4559 


; set timeout on j 






4560 


• 


rE21 


8D8502 


4561 


JFE21 STA X0285 


FE24 


50 


4562 


RTS 






4563 


J 






4564 


;read/set top of 






4565 


; 


FE25 


9006 


4566 


JFE25 BCC JFE2D 


FE27 


AE8302 


4567 


SFE27 LDX X0283 


FE2A AC8402 


4568 


LDY X0284 


FE2D 


8E8302 


4569 


JFE2D SIX X0283 


FE30 


8C8402 


4570 


STY X0284 


FE33 


60 


4571 


RTS 






4572 








4573 


;read/set bottom 






4574 





FE34 9006 
FE36 AE8102 
FE39 AC8202 
FE3C 8E8102 
rE3F 8C8202 
FE42 60 



4575 JFE34 BCC BFE3C 



4576 
4577 



LDX X0281 
LDY X0282 



4578 BFE3C STX X0281 



4579 
4580 



STY X0282 
RTS 



;i£ RS-232 device, 

;read RS-232 Status Register 



;then clear RS-232 Status Register 
;and restore original contents in A 



;set direct/run mode ($80/$00) 



; fetch current ST 



;add existing bits to A 
;and store new ST 



; serial bus timeout flag (not used) 



;if carry is clear, set pointers from XY 
;else fetch top of memory into XY 

;set top of memory from X 
;and high byte from Y 



;if carry is clear, set pointer from XY 
;else fetch bottom of memory into XY 

;set low byte bottom of memory from X 
;and high byte from Y 
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FE43 
FE44 



78 

6C1803 



rE47 
FE48 
FE49 
FE4A 
FE4B 
FE4C 
FE4E 
FE51 
FE54 
FES 6 
FE59 
FE5B 

FE5E 
FE61 
FE64 



48 
8A 
48 
98 
48 

A97F 

8D0DDD 

ACODDD 

301C 

2002FD 

D003 

6C0280 

20BCF5 
20E1FF 
DOOC 



FE66 
FE69 
FE6C 
FE6F 



2015FD 
20A3FD 
2018E5 
6C02A0 



4582 
4583 
4584 
4'585 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 
4594 
4595 
4596 
4597 
4598 
4599 
4600 
4601 
4602 
4603 
4504 
4605 
4606 
4607 
4608 
4509 
4610 
4611 



;NMI entry 



WFE43 SEI 

JMP (X0318) 



; perform NMI (normally FE47) 
; standard NMI routine 

save A on stack 
save X on stack 
save Y on stack 
clear ICR2 IRQ mask bits 



WFE47 PHA 
TXA 



PHA 
TYA 
PHA 

LDA $7F 
STA XDDOD 
LDY XDDOD 
BMI BFE72 
JSR SFD02 
BNE BFE5E 
JMP (X8002) 

BFE5E JSR BF6BC 
JSR SFFEl 
BNE BFE72 

f 

;BEIK routine 

WFE56 JSR SFD15 
JSR SFDA3 
JSR SE518 
JMP (XA002) 



;lf no IRQ's were present 

; check for a cartridge 

;if cartridge present, 

; perform cartridge warm start 

;scan the keyboard 

; check for Stop key 

;and drop thru to BRK if depressed 



; restore I/O vectors 

; initialize I/O devices 

; initialize screen and keyboard 

; perform warm start 
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4613 


; Internal 


NMI 






4614 








FE72 


9S 


4615 


BFE72 


TYA 




FE73 


2DA102 


4616 




AND 


X02A1 


FE76 


AA 


4617 




TAX 




FE77 


2901 


4618 




AND 


$01 


FE79 


F028 


4619 




BEQ 


BFEA3 


FE7B 


ADO ODD 


4620 




LDA 




FE7E 


29FB 


4621 




AND 


$FB 


FE80 


05B5 


4622 




ORA 


235 


FES 2 


8D00DD 


4523 




STA 


A.UIJ\J\J 


FE85 


ADA102 


4624 






X02A1 


FES 8 


8D0DDD 


4625 




STA 


A.UUUU 


FE8B 


SA 


4626 




TXA 




FESC 


2912 


4627 




AND 


C 1 9 


FESE 


FOOD 


4628 




BEQ 


Br iLyU 


FE90 


2902 


4629 




AND 


$02 


FE92 


F006 


4630 




BEQ 


BFE9A 


FE94 




4631 




JSR 


SFED6 


FE97 


4C9DFE 


4632 
4633 




JMP 


or Cjyu 


FE9A 


2007FF 


4634 


BFE9A 


JSR 


SFF07 


FE9D 




4635 


BFE9D 


JSR 


CCT7DD 


FEAO 


4CB6FE 


4636 
4637 




JMP 


JFEB6 


FEA3 


8A 


4638 


A3 


TXA 




FEA4 


2902 


4639 




AND 


$02 


FEA6 


F006 


4640 




BEQ 


RPir At? 


FEA8 


20D6FE 


4641 




JSR 


SFED6 


FEAB 


4CB6FE 


4642 
4643 




JMP 


JFEB6 


FEAE 


8A 


4644 


BFEAE 


TXA 




FEAF 


2910 


4645 




AND 


$10 


FEBl 


F003 


4646 




BEQ 


JFEB6 


FEB 3 


2007FF 


4647 




JSR 


SFF07 


FEB6 


ADA102 


464S 


JFEB6 


LDA 


X02A1 


FEB9 


8D0DDD 


4649 




STA 


XDDOD 


FEBC 


68 


4650 


JFEBC 


PLA 




FEBD 


A8 


4651 




TAY 




FEBE 


6S 


4652 




PLA 




FEBF 


AA 


4653 




TAX 




FECO 


6S 


4654 




PLA 




FECI 


40 


4655 




RTI 





;get ICR2 

;mask with ICR2 activity register 
;save results 

;if transmitting 

; clear RS-232 output data line 
;and add bit to be transmitted 
;and send it 

' use ICR2 activity register 
;to set ICR2 

;if not receiving/ waiting receiver edge, 
;send next bit on serial bus 

;if not receiving, 

; input next bit on RS-232 

;then send next bit on RS-232 bus 

; schedule TB2 using baud rate factor 
;send next bit on RS-232 
;exit from NMI 



;if receiving data, 

; input next bit on RS-232, schedule TB2 
;exit from NMI 



;if waiting for receiver edge, 

; schedule TB2 using baud rate factor 

;use ICR2 activity register 

;to set ICR2 

;restore Y 

;restore X 
;restore A 

;and return from NMI 
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4657 ; table of baud rate factors based upon 

4658 ; ((clock frequency/baud rate/2)-100) 

4659 ;this table applies to US machine clock frequency 







4660 












FEC2 


C127 


4661 


TFEC2 


.W 


$2701 


50 baud 




FEC4 


3E1A 


4662 




.w 


$1A3E 


75 




FEC6 


C51 1 


4663 




.w 


$11C5 


110 




FEC8 


740E 


4664 




.w 


$0E74 


134.5 




FECA 


EDOC 


4565 




.w 


$0CED 


150 




FECC 


4506 


4666 




.w 


$0645 


300 




FECE 


F002 


4667 




.w 


$02F0 


600 




FEDO 


4601 


4668 




.w 


$0146 


1200 




FED2 


B800 


4669 




.w 


$00B8 


1800 




FED4 


7100 


4670 
4671 




.w 


$0071 


2400 








4672 


; Input next bit on RS-232 bus 


and schedule TB2 






4673 












FED6 


ADOIDD 


4674 


SFED6 


LDA 


XDDOl 






FED9 


2901 


4675 




AND 


$01 


;mask bit 


read 


FEDB 


85A7 


4676 




STA 


ZA7 


;and save 


in temporary storage area 


FEDD 




4677 




LDA 


XDD06 


;use TAL2 




FEEO 


E91C 


4678 




SBC 


$1C 


;and overhead 


FEE 2 


6D9902 


4679 




ADC 


X0299 


; and baud 


rate full bit time 


FEE5 


8D06DD 


4680 




STA 


XDD06 


;to reset 


TBL2 


FEES 


AD07DD 


4681 




LDA 


XDD07 






FEEB 


6D9A02 


4682 




ADC 


X029A 






FEEE 


8D07DD 


4683 




STA 


XDD07 


;and TBH2 




FEFl 


A911 


4684 




LDA 


$11 






FEF3 


8D0FDD 


4685 




STA 


XDDOF 


;set force load + start IB2 bits in CRB2 


FEF6 


ADA102 


4686 




LDA 


X02A1 






FEF9 


8D0DDD 


4687 




STA 


XDDOD 


;set ICR2 


from ICR2 activity register 


FEFC 


A9FF 


4688 




LDA 


$FF 






FEFE 


8D06DD 


4689 




STA 


XDD06 


;set TBL2 




FFOl 


8D07DD 


4690 




STA 


XDD07 


;and TBH2 


to maximum value 


FF04 


4C59EF 


4691 




JMP 


JEF59 


;add input bit to word being read 






4692 
















4693 


; schedule 


TB2 using 


baud rate 


factor 






4694 












FF07 


AD9502 


4695 


SFF07 


LDA 


X0295 


;move bit 


time 


FFOA 


8D06DD 


4696 




STA 


XDD06 


;to TBL2 




FFOD 


AD9602 


4697 




LDA 


X0296 






FFIO 


8D07DD 


4698 




STA 


XDD07 


;and TBH2 




FF13 


A911 


4699 




LDA $11 






FF15 


8D0FDD 


4700 




STA 


XDDOF 


;set force load and TB in CRB2 


FF18 


A912 


4701 




LDA $12 






FFIA 


4DA102 


4702 




EOR 


X02A1 


; invert waiting for receiver edge and 


FFID 


8DA102 


4703 




STA 


X02A1 


;receiving data bits in activity reg 


FF20 


A9FF 


4704 




LDA $FF 






FF22 


8D06DD 


4705 




STA 


XDD06 


;set TBL2 


to maximum value 


FF25 


BD07DD 


4706 




STA 


XD0O7 


;set TBH2 


to maximum value 


FF28 


AE9802 


4707 




LDX 


X0298 






FF2B 


86A8 


4708 




STX 


ZA8 


;set number of bits to send/receive 


FF2D 


60 


4709 




RTS 
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4711 


; continuation of baud rate calcuation 






4712 










FF2E 


AA 


4713 


SFF2E 


TAX 






FF2F 


AD9602 


4714 




LDA 


X0296 




FF32 


2A 


4715 




ROL 


A 


;multiply factor * 2 


FF33 


A8 


4716 




TAY 






FF34 


8A 


4717 




TXA 






FF35 


69C8 


4718 




ADC 


$C8 


;and add 200 


FF37 


8D9902 


4719 




STA 


X0299 


;to form baud rate 


FF3A 


98 


4720 




TYA 






FF3B 


6900 


4721 




ADC 







FF3D 


8D9A02 


4722 




STA 


X029A 




FF40 


60 


4723 
4724 




RTS 






FF41 


EA 


4725 




NOP 






FF42 


EA 


4726 
4727 




NOP 






FF43 


08 


4728 


JFF43 


PHP 






FF44 


68 


4729 




PLA 






FF45 


29EF 


4730 




AND 


$EF 


; clear BRK status bit 


FF47 


48 


4731 
4732 




PHA 










4733 


;IRQ entry point 








4734 










FF48 


48 


4735 


WFF48 


PHA 




jsave A oii stack 


FF49 


8A 


4736 




TXA 






FF4A 


48 


4737 




P!1A 




1 save X on stack 


FF4B 


98 


4738 




TYA 






FF4C 


48 


4739 




PHA 






FF4D 


BA 


4740 




TSX 






FF4E 


BD0401 


4741 




LDA 


X0100+4,X 


; check BRK bit 


FF51 


2910 


4742 




AND 


$10 




FF53 


F003 


4743 




BEQ 


BFF58 




FF55 


6C1603 


4744 
4745 




JMP 


(X0316) 


; perform BRK (normally FE66) 


FF58 


6C1403 


4746 
4747 


BFF58 


JMP 


(X0314) 


;else IRQ (normally EA31) 






4748 


; addition 


to I/O device initialization 






4749 


» 








FF5B 


2018E5 


4750 


JFF5B 


JSR 


SE518 


; initialize screen and keyboard 


FF5E 


ADI2D0 


4751 


BFF5E 


LDA 


XD012 




FF61 


DOFB 


4752 




BNE 


BFF5E 


;wait for raster count to clear 


FF63 


AD19D0 


4753 




LDA 


XD019 


;use Interrupt register 


FF66 


2901 


4754 




AND 


$01 




FF68 


8DA602 


4755 




STA 


X02A6 


;to set US/Intl machine flag (0 


FF6B 


4CDDFD 


4756 
4757 




JMP 


SFDDD 


;set clock for 1/60 second IRQ' 






4758 


;end of scheduling 


TA for 1/60 second IRQ's 






4759 










FF6E 


A981 


4760 


JFF6E 


LDA $81 




FF70 


8D0DDC 


4761 




STA 


XDCOD 


;set TA mask in ICRl 


FF73 


ADOEDC 


4762 




LDA 


XDCOE 


;use CRAl 


FF76 


2980 


4763 




AND 


$80 


;blt 7 (50/50 Hz flag) 


FF78 


0911 


4764 




ORA $11 


;+ force load, continuous mode 


FF7A 


8D0EDC 


4765 




STA 


XDCOE 


;to set CRAl 


FF7D 


4C8EEE 


4766 




JMP 


SEE8E 


;set serial clock line high and 


FF80 


00 


4767 




.BY $00 


; filler 
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4769 


;kernal vectors 






4770 








FF81 


4C5BFF 


4771 
4772 




JMP 


JFF5B 


FF84 


4CA3FD 


4773 
4774 




JMP 


SFDA3 


FF87 


4C50FD 


4775 
4775 




JMP 


SFD50 


FF8A 


4C15FD 


4777 
4778 




JMP 


SFD15 


FF8D 


4C1AFD 


4779 
4780 




JMP 


JFDIA 


FF90 


4C18FE 


4781 
4782 




JMP 


JFE18 


FF93 


4CB9ED 


4783 
4784 




JMP 


SEDB9 


FF96 


4CC7ED 


4785 
4785 




JMP 


SEDC7 


FF99 


4C25FE 


4787 
4788 


SFF99 


JMP 


JFE25 


FF9C 


4C34FE 


4789 
4790 


SFF9C 


JMP 


JFE34 


FF9F 


4C87EA 4791 




JMP 


SEAS 7 






4792 








FFA2 


4C21FE 


4793 
4794 




JMP 


JFE21 


FFA5 


4C13EE 


4795 
4795 




JMP 


JEE13 


FFA8 


4 CODED 


4797 
4798 




JMP 


JEDDD 


FFAB 


4CEFED 


4799 
4800 




JMP 


SEDEF 


FFAE 


4CFEED 


4801 
4802 




JMP 


SEDFE 


FFBl 


4C0CED 


4803 
4804 




JMP 


SEDOC 


FFB4 


4C09ED 


4805 
4806 




JMP 


SED09 


FFB7 


4C07FE 


4807 
4808 


SFFB7 


JMP 


JFE07 


FFBA 


4C00FE 


4809 
4810 


SFFBA 


JMP 


JFEOO 


FFBD 


4CF9FD 


4811 
4812 


SFFBD 


JMP 


JFDF9 


FFCO 


6C1A03 


4813 
4814 


SFFCO 


JMP 


(X031A) 


FFC3 


6C1C03 


4815 
4816 


SFFC3 


JMP 


(X031C) 


FFC6 


6C1E03 


4817 
4818 


SFFC6 


JMP 


(X031E) 


FFC9 


6C2003 


4819 
4820 


SFFC9 


JMP 


(X0320) 


FFCC 


6C2203 


4821 
4822 


SFFCC 


JMP 


(X0322) 


FFCF 


6C2403 


4823 
4824 


SFFCF 


JMP 


(X0324) 


FFD2 


6C2603 


4825 
4826 


SFFD2 


JMP 


(X0326) 


FFD5 


4C9EF4 


4827 
4828 


SFFD5 


JMP 


JF49E 



•.initialize screen and keyboard 

; Initialize I/O devices 

; initialize memory pointers 

;restore I/O vectorsces 

;set I/O vectors from XY 

; control kernal messages 

; send Secondary Address after Listen 

;send Secondary Address after Talk 

;read/set top of memory 

;read/set bottom of memory 

;scan keyboard 

;set timeout for serial bus 

; input byte on serial bus 

;output byte on serial bus 

;send Untalk on serial bus 

;send Unlisten on serial bus 

;send Listen on serial bus 

;send Talk on serial bus 

;read I/O status word 

;set file parameters 

;set file name parameters 

;open a file (F34A) 

;close a file (F291) 

;set input device (F20E) 

;set output device (F250) 

;restore I/O devices to default (F333) 

; input char on current device (F157) 

; output char to current device (FICA) 

;load RAM from a device 
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FFD8 


4CDDF5 


4829 
4830 


SFFD8 


JMP 


JF5DD 


;save RAM to a device 


FFDB 


4CE4F6 


4831 
4832 


• 


JMP 


JF6E4 


;set real time clock 


FFDE 


4CDDF6 


4833 
4834 




JMP 


JF6DD 


;read real time clock 


FFEl 


6C2803 


4835 
4836 


SFFEl 


JMP 


(X0328) 


; check Stop key (F6ED) 


FFE4 


6C2A03 


4837 
4838 


SFFE4 


JMP 


(X032A) 


;get a character (F13E) 


FFE7 


6C2C03 


4839 
4840 




JMP 


(X032C) 


; close all channels and files (F32F) 


FFEA 


4C9BF6 


4841 
4842 


SFFEA 


JMP 


JF69B 


; increment real time clock 


FFED 


4C05E5 


4843 
4844 




JMP 


JE505 


;read organization of screen into XY 


FFFO 


4C0AE5 


4845 
4846 




JMP 


JE50A 


;read/set XY cursor position 


FFF3 


4C00E5 


4847 
4848 


SFFF3 


JMP 


JE500 


;read base address of I/O devices 






4849 


; garbage 










4850 










FFF6 


525242 


4851 




.BY 


$52, $52, $42, $59 






4852 














4853 


i6510 


fixed vectors 








4854 










FFFA 


43FE 


4855 




.W 


WFE43 


;NMI vector 


FFFC 


E2FC 


4856 




.W 


WFCE2 


;RESET vector 


FFFE 


48FF 


4857 




.W 


WFF48 


;IRQ/BRK vector 
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BEOOB 

BEOOE 

BEOIE 

BE06C 

BE070 

BE07D 

BEOBE 

BE0D3 

BE0F9 

BE104 

BE109 

BE194 

BE195 

BE19E 

BElAl 

BE1B5 

BEIDI 

BE20D 

BE23F 

BE29D 

BE2A0 

BE2AD 

BE316 

BE324 

BE337 

BE33D 

BE386 

BE391 

BE3A8 

BE3B9 

BE3E2 

BE421 

BE455 

BE4B6 

BE4E2 

BE4EB 

BE513 

BE54D 

BE555 

BE560 

BE570 

BE57C 

BE58D 

BE597 

BE5AA 

BE5B9 

BE5CA 

BE 5 CD 

BE5E7 

BE5F3 

BE5FE 

BE606 

BE60F 

BE63A 

BE64A 

BE650 

BE654 

BE65D 

BE66F 



EOOB 
EOOE 
EOIE 
E06C 
E070 
E07D 
EOBE 
E0D3 
E0F9 
E104 
E109 
E194 
E195 
E19E 
ElAl 
E1B5 
ElDl 
E20D 
E23F 
E29D 
E2A0 
E2AD 
E316 
E324 
E337 
E33D 
E386 
E391 
E3A8 
E3B9 
E3E2 
E421 
E455 
E4B6 
E4E2 
E4EB 
E513 
E54D 
E555 
E560 
E570 
E57C 
E58D 
E597 
E5AA 
E5B9 
E5CA 
E5CD 
E5E7 
E5F3 
E5FB 
E606 
E60F 
E63A 
E64A 
E650 
E654 
E65D 
E66F 



333 
327 
343 
379 
396 
388 
410 
409 
470 
459 
465 
546 
539 
543 
554 
560 
537 
618 
647 
688 
691 
700 
756 
761 
770 
775 
833 
821 
838 
842 
876 
902 
941 
960 
985 
983 
1016 
1056 
1052 
1062 
1077 
1072 
1091 
1087 
1108 
1119 
1154 
1132 
1135 
1150 
1143 
1161 
1159 
1169 
1197 
1199 
1201 
1178 
1213 



474 478 482 486 520 587 



586 



578 
627 



727 



1151 1187 

1173 1177 
1202 
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BE672 E672 1216 

BE674 E674 1207 

BE682 E682 1226 

BE690 E690 1234 

BE699 E699 1245 

BE69F E69F 1248 

BE6A8 E6A8 1317 1407 1425 1475 1506 1509 1514 1541 2007 2019 

BE6B0 E6B0 1259 

BE6CD E6CD 1278 

BE6DA E6DA 1283 1674 1708 

BE6F4 E6F4 1299 

BE6F7 E6F7 1276 

BE700 E700 1274 

BE70B E70B 1313 

BE72A E72A 1337 

BE731 E731 1341 

BE73D E73D 1347 

BE73F E73F 1349 

BE745 E745 1345 

BE74C E74C 1355 

BE759 E759 1361 

BE762 E762 1379 

BE77E E77E 1359 

BE785 E785 1386 

BE78B E78B 1390 

BE792 E792 1393 

BE7A8 E7A8 1417 1418 

BE7AA E7AA 1402 

BE7AD E7AD 1396 

BE7C0 E7C0 1423 

BE7C8 E7C8 1421 

BE7CB E7CB 1384 

BE7CE E7CE 1410 

BE7DC E7DC 1434 

BE7E3 E7E3 1437 

BE7EA E7EA 1441 

BE7FE E7FE 1451 

BE805 E805 1453 

BE80A E80A 1459 

BE826 E826 1455 

BE829 E829 1447 

BE82D E82D 1445 

BE832 E832 1478 

BE847 E847 1490 

BE84C E84C 1483 

BE854 E854 1496 

BE864 E864 1502 

BE86A E86A 1500 

BE871 E871 1485 1492 1494 

BE874 E874 1512 

BE880 E880 1529 

BE888 E888 1526 

BE8A5 E8A5 1552 

BE8B0 E8B0 1548 

BE8B7 E8B7 1567 

BE8C2 E8C2 1563 

BE8CA E8CA 1572 

BE8CD E8CD 1582 

BE8D6 E8D6 1580 

BE8F6 E8F6 1630 
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BE8FF E8FF 1614 

BE913 E913 1609 

BE918 E918 1625 

BE922 E922 1620 

BE94D E94D 1645 1647 

BE956 E956 1641 

BE981 E981 1668 1669 

BE98F E98F 1694 

BE9A5 E9A6 1688 1689 

BE9AB E9AB 1706 

BE9BA E9BA 1702 

BE9BF E9BF 1698 

BE9D4 E9D4 1723 

BEA07 EA07 1757 

BEA5C EA5C 1799 

BEA61 EA61 840 1790 1792 

BEA71 EA71 1811 

BEA79 EA79 1816 

BEA7B EA7B 1818 

BEAA8 EAA8 1875 

BEAAB EAAB 1852 

BEAB3 EAB3 1870 

BEAC9 EAC9 1858 1860 

BEACB EACB 1863 

BEACC EACC 1854 

BEADC EADC 1868 

BEAFO EAFO 1883 

BEAFB EAFB 1840 

BEBOD EBOD 1890 1895 1897 1899 

BEB17 EB17 1903 

BEB26 EB26 1886 1893 

BEB42 EB42 1891 1901 1905 1907 1912 1918 1922 

BEB54 EB64 1932 

BEB6B EB6B 1946 

BEB76 EB76 1936 1940 

BEC58 EC58 2001 

BEC5B EC5B 2015 

BEC5E EC5E 2003 

BEC69 EC69 2010 

BEC72 EC72 2013 

BED20 ED20 2104 

BED2E ED2E 2115 

BED50 ED50 2135 

BED55 ED55 2137 

BED5A ED5A 2133 2139 

BED66 ED66 2145 2163 

BED7A ED7A 2149 

BED7D ED7D 2151 

BED9F ED9F 2173 

BEDAD EDAD 2130 

BEDBO EDBO 2147 2171 

BEDD6 EDD5 2203 

BEDE6 EDE6 2210 

BEDEB EDEB 2213 

BEE03 EE03 2183 

BEE09 EE09 2239 

BEEIB EEIB 2251 

BEE20 EE20 2274 

BEE30 EE30 2262 

BEE3E EE3E 2260 
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BEE47 EE47 2265 

BEE56 EE56 2263 

BEE5A EE5A 2279 2281 2289 

BEE67 EE67 2285 2287 

BEE80 EE80 2292 

BEEB6 EEB6 2342 

BEEC8 EEC8 2353 

BEEDl EEDl 2375 2377 2387 

BEED7 EED7 2359 

BEEE6 EEE6 2379 2382 2384 

BEEE7 EEE7 2371 2381 2383 

BEEF2 EEF2 2357 

BEEF6 EEF6 2369 

BEEFC EEFC 2368 

BEFOO EFOO 2350 

BEF05 EF06 2349 2565 

BEF13 EF13 2390 

BEF2E EF2E 2392 

BEF31 EF31 2393 

BEF39 EF39 2401 

BEF54 EF54 2427 

BEF58 EF58 2429 

BEF6D EF6D 2457 2495 2499 2501 

BEF6E EF6E 2494 

BEF70 EF70 2440 

BEF7E EF7E 2472 2511 

BEF90 EF90 2437 

BEF97 EF97 2439 

BEFA9 EFA9 2490 

BEFBl EFBl 2487 

BEFC5 EFC5 2498 

BEFCA EFCA 2481 

BEFCD EFCD 2515 

BEFDO EFDO 2514 

BEFDB EFDB 2452 

BEFF2 EFF2 2529 

BEFF9 EFF9 2531 

BF006 F006 2537 

BFOOD FOOD 2525 2580 3135 

BF012 F012 2522 2526 2536 

BF014 F014 2549 

BF04C F04C 2556 

BF062 F062 2584 

BF070 F070 2590 

BF077 F077 2597 

BF07D F07D 2575 2577 

BF084 F084 2581 

BF09C F09C 2606 

BFOAA FOAA 2625 

BFOBB FOBB 2622 

BF12F F12F 2658 3320 3324 3445 3534 3565 3695 3700 

BF13C F13C 2651 

BF14A F14A 2665 

BF155 F155 2667 

BF166 F166 2672 2582 

BF173 F173 2590 

BF18D F18D 2705 

BF193 F193 2704 

BF196 F196 2701 

BF1A9 F1A9 2722 
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BFIAD FIAD 2696 

BFIBI FlBl 2750 

BF1B3 F1B3 2747 

BFI.B4 F1B4 2724 2745 

BF1B5 F1B5 2733 

BF1B8 F1B8 2698 2751 

BF1D5 F1D5 2758 

BFIDB FIDB 2762 

BF1F8 F1F8 2775_ 

BFIFD FIFD 2777' 

BF207 F207 2791 

BF208 F208 2773 

BF216 F216 2801 

BF22A F22A 2811 

BF233 F233 2806 2808 2816 2835 

BF237 F237 2809 

BF245 F245 2828 

BF258 F258 2841 

BF25F F25F 2858 

BF262 F262 2846 

BF26F F26F 2853 

BF275 F275 2850 2874 

BF279 F279 2851 

BF286 F286 2868 

BF289 F289 2870 

BF298 F29S 2880 

BF2BA F2BA 2899 

BF2BF F2BF 2902 

BF2C8 F2C8 2893 

BF2E0 F2E0 2919 

BF2EE F2EE 2891 

BF2F1 F2F1 2888 2890 2913 2926 2929 

BF30D F30D 2941 

BF316 F316 2961 

BF32E F32E 2959 

BF33C F33C 2983 

BF343 F343 2986 

BF351 F351 2996 

BF359 F359 3000 

BF362 F362 3005 

BF384 F384 3020 

BF38B F38B 3024 

BF393 F393 3030 

BF3AC F3AC 3049 

BF3AF F3AF 3040 

BF3B8 F3B8 3035 

BF3C2 F3C2 3042 3048 

BF3D1 F3D1 3060 

BF3D3 F3D3 3017 3019 3022 3072 3074 

BF3D4 F3D4 3037 3043 3047 3054 

BF3F6 F3F6 3083 

BF3FC F3FC 3095 

BF406 F406 3089 

BF40F F40F 3108 

BF41D F41D 3103 

BF43A F43A 3117 

BF446 F446 3113 

BF45C F45C 3131 3134 

BF474 F474 3143 

BF4AF F4AF 3186 
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BF4B2 F4B2 3182 

BF4BF F4BF 3189 

BF4F0 F4F0 3210 

BF4F3 F4F3 3228 3243 

BF501 F501 3220 

BF51C F51C 3231 

BF51E F51E 3234 

BF524 F524 3240 

BF530 F530 3206 3265 3268 

BF533 F533 3187 

BF539 F539 3250 

BF541 F541 3254 

BF549 F549 3275 

BF556 F556 3261 

BF55D F55D 3263 

BF56C F56C 3285 

BF579 F579 3274 

BF57D F57D 3283 

BF5A9 F5A9 3246 

BF5AE F5AE 3258 3264 3257 3272 

BF5C7 F5C7 3332 

BF5D1 F5D1 3318 3322 3326 

BF5DA F5DA 3339 

BF5F1 F5F1 3361 3417 

BF5F4 F5F4 3357 

BF505 F605 3366 

BF624 F524 3393 

BF63A F53A 3386 

BF53F F63F 3382 

BF557 F557 3399 

BF659 F559 3352 

BF65F F55F 3411 

BF675 F576 3424 

BF68D F58D 3433 

BF68E F68E 3419 3428 3430 3443 

BF5A7 F6A7 3452 3454 

BF5BC F6BC 3463 3469 3787 4602 

BF6CC F5CC 3476 

BF6DA F6DA 3471 

BF6DC F6DC 3479 

BF6FA F6FA 3503 

BF729 F729 3533 

BF74B F74B 3556 3558 

BF757 F757 3571 

BF751 F761 

BF757 F757 3553 

BF759 F769 3550 3554 

BF781 F781 3596 

BF7A5 F7A5 3523 

BF7B7 F7B7 3517 

BF7CF F7CF 3583 

BF7F7 F7F7 3678 

BF80B F80B 3670 

BF80C F80C 3564 

BF81E F81E 3716 

BF821 F821 3698 

BF836 F836 3693 3705 3714 

BF86E F86E 3725 

BF875 F875 3736 

BF8B5 F8B5 3780 



BF8B7 
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3731 4079 4081 4088 4092 4134 

Z9F 009F 3612 3619 3622 3666 3672 3676 3732 4091 4100 4101 

ZAO OOAO 3455 3461 3464 3488 3495 

ZAl OOAl 984 3453 3459 3465 3487 3494 3572 

ZA2 00A2 3451 3457 3466 3486 3493 

ZA3 00A3 2106 2109 2132 3878 3923 3955 3967 4166 4232 4233 

ZA4 0OA4 2282 2294 3908 3910 3921 4168 4219 4221 

ZA5 00A5 2142 2162 2248 2264 2273 2276 2288 4238 4242 4298 

ZA6 O0A6 2708 2726 2782 3065 3685 3686 

ZA7 00A7 2441 2444 2451 2471 2496 4012 4034 4065 4132 4272 4285 4676 

ZA8 00A8 2438 2450 2456 3898 3984 3999 4169 4200 4206 4708 

ZA9 00A9 2436 2465 2473 3900 3902 3944 4000 4171 4211 4215 

ZAA OOAA 2445 2484 2513 3728 4014 4025 4042 4043 4046 4052 4123 

ZAB OOAB 2442 2443 2497 3626 3742 4049 4141 4143 4144 4148 4288 4293 

ZAC OOAC 1594 1611 1657 1676 1691 1718 1729 3377 3383 4072 4084 4094 

4106 4119 4142 4160 4257 4344 4352 

ZAD OOAD 1596 1655 1678 1715 1731 3379 4082 4097 4158 4252 4346 4354 

ZAE OOAE 1598 1653 1680 1720 1730 3202 3212 3233 3238 3239 3299 3311 
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00.. ITol llf. lilt 32U .U. 330. 33.Z 33.6 338S 3eO, 

00B2 2728 2780 27^4 3063 3278 328^ 3287 3289 3292 3294 3352 3367 
3394 3598 3601 3604 3607 3610 3620 3642 3673 4439 

III 00B4 23'48 2r3°8 2373 2376 2378 2385 2398 3729 3896 3913 3953 3965 

3980 3989 3994 
nnRS 93fi2 2396 3991 4016 4030 4054 4622 

OOB 2351 403 4001 4032 4075 4076 4109 4110 4198 4207 4299 

00B7 3039 3073 3088 3094 3102 3188 3260 3321 3325 3331 3365 3616 
3669 4321 

™ =2 i ^ 5,.; «n 30. 30J3 3033 3.3. ^ 

OOBA 2803 2813 2887 2969 3015 3077 3181 3197 3356 3371 3400 4529 



ZAF 



ZB2 



ZB4 

ZB5 
ZB6 
ZB7 



ZB9 

ZBA 

ZBB 
ZBC 
ZBD 

ZBE 



ZCl 

ZC2 
ZC3 
ZC4 



ZDO 
ZDl 



ZD4 
ZD 5 
ZD6 



ZD7 



4335 

OOBB 3091 3104 3328 3618 3671 4522 



ZBD OOBD 2356 2357 2370 2380 2395 3998 4036 4071 4104 4118 4149 4176 

4223 4225 4231 4247 4254 4258 4265 
OOBE 3769 4010 4018 4128 4131 4136 4243 4268 4294 
ZBF OOBF 3958 3997 

fci OOa 3304 33^9 3586 3600 3634 3651 4139 4443 4448 4449 4432 4433 

00C2 3306 3351 3584 3603 3636 3656 4157 4443 4444 4462 
00C3 3172 3211 3279 3298 3303 4397 4402 4403 
00C4 3173 3213 3282 3301 3303 4398 

fc6 00C6 U18 U20 1129 1146 1648 1910 1920 1925 2666 3506 

ZC7 00C7 1244 1391 1498 1537 

ZC8 00C8 1163 1176 1206 2693 

ZC9 00C9 1168 1172 1322 1604 2686 

ZCA OOCA 1174 2684 

ZCB OOCB 1836 1864 1879 1913 

zee OOee 1043 1130 1789 

ZeD OOCD 1042 1764 1791 1794 

ZCE OOeE 1136 1801 1806 

ZCF OOCF 1029 1134 1139 1796 1800 

IZ U57 ll92 U70 1372 1381 1449 1460 1462 1471 1719 1740 

1733 1771 1778 1798 

Zl Zl \oA \Z 1070 1075 1166 1175 1191 1204 1271 1273 1307 

1314 1322 1335 1367 1399 1406 1422 1452 1468 1487 1491 1505 

1539 1547 1562 1770 1795 2683 

00D4 1167 1200 1235 1237 1260 1385 1444 1538 

nnns 1092 1135 1272 1294 1297 1321 1378 1401 1416 1448 1457 2692 

Zft 017 io20 1065 069 1170 1281 1285 1286 1304 1312 1319 1403 

° U19 U84 1486 1523 1530 1555 1570 1573 1603 1631 1649 

00D7 U93 nil mi 1219 1224 1328 1336 3912 3940 3957 4241 4253 



4259 4260 

- Zl \Z lltl -a 'oil nil U92 1298 1528 1617 

1622 1629 1664 1701 1741 
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ZDA OODA 1512 1619 

ZFl OOFl 1626 1628 

ZF3 00F3 975 1374 

ZF4 00F4 1783 

ZF5 OOFS 1843 1856 

ZF6 00F6 1845 1952 

ZF7 00F7 2491 2609 

ZF8 OOFS 2898 2905 

ZF9 00F9 2402 2553 

ZFA OOFA 2901 2906 



1699 1704 

1376 1383 1464 1466 

1880 1950 

3146 

3142 3145 
3151 

3147 3150 



1473 1721 1773 1779 1803 



The End 
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